Kodla Düzgün Kutular Çizme

Bir cok nedenle bu tarz duzgun kutular cizebilmek isteyebilirsiniz; bunu yapabilmeniz icin orneklendiriyorum;

VBA Kodlari

ActiveSheet.Shapes.AddShape _
(msoShapeFlowchartProcess, 0, 0, 48, 12.75).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Visible = msoTrue

Yukaridaki ornekle resimdeki gibi yesil bir kutu ekleyebiliyorsunuz..

Sub Kutular()
Dim x As Double
‘YAtay Kutular
For x = 0 To 240 Step 48
ActiveSheet.Shapes.AddShape _
(msoShapeFlowchartProcess, x, 0, 48, 12.75).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Visible = msoTrue
Next x
‘Dikey Kutular
For x = 0 To 127.5 Step 12.75
ActiveSheet.Shapes.AddShape _
(msoShapeFlowchartProcess, 0, x, 48, 12.75).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Visible = msoTrue
Next x
End Sub

Bu ornegimizde ise donguler 48`er ve 12.75`er buyuyerek isliyor bunun nedeni kutularimizin genisliklerinin 48*12.75 olmasi ilk dongumuz saga sogru yan yana kutular olusturuyor ayni sekilde ikinci dongumuzde asagiya dogru kutular olusturuyor..

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


8 + 6 =