BORDER 3 DIMENSI Option Explicit Private Sub - TopicsExpress



          

BORDER 3 DIMENSI Option Explicit Private Sub CommandButton1_Click() Call Format3D(Selection, True) End Sub Sub Format3D(oRange As Range, Optional bSunken As Boolean = True) With oRange .BorderAround Weight:=xlMedium, Color:=RGB(255, 255, 255) If bSunken Then .Borders(xlEdgeLeft).Color = RGB(96, 96, 96) .Borders(xlEdgeTop).Color = RGB(96, 96, 96) Else .Borders(xlEdgeRight).Color = RGB(96, 96, 96) .Borders(xlEdgeBottom).Color = RGB(96, 96, 96) End If End With End Sub
Posted on: Sun, 26 Jan 2014 04:10:15 +0000

Trending Topics



luje na polskich stołach od lat. Kiedyś symbol Zachodu,
From our weekend prayer: The forecast for today is showers of
I need you right here, by my side Youre everything Im not in my

Recently Viewed Topics




© 2015