Membuat Shape pada aplikasi Excel dengan Visual Basic

Saatnya untuk mempercantik worksheet anda. Bagaimana agar worksheet kita dapat ditambahkan sebuah shape dengan gradien warna. Berikut ini sintaks sederhana untuk menjawab masalah tersebut

Dim vExcel As Excel.Application
Dim myDocument As Worksheet

strFile = App.path & "\Book1.xls"
Set vExcel = CreateObject("Excel.Application")
vExcel.Workbooks.Open (strFile)
Set myDocument = vExcel.Worksheets(1)

With myDocument
.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 50).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.BackColor.RGB = RGB(170, 170, 170)
.TwoColorGradient msoGradientHorizontal, 1
End With

vExcel.ActiveWorkbook.Save
vExcel.Workbooks.Close
Set vExcel = Nothing

Delicious

Digg

StumbleUpon

Reddit

Subscribe to RSS Feed