Tartalomjegyzék
VBA húzódobozok kóddal
Sok oka lehet annak, hogy programozottan rajzolhat dobozokat, az automatikus gantt diagram jó lenne? Íme az egyik módja ennek.
Ez az alapvető kód a doboz rajzolásához:
| 12345678910 | ActiveSheet.Shapes.AddShape _(msoShapeFlowchartProcess, 0, 0, 48, 12.75). Válassza kiSelection.ShapeRange.Fill.ForeColor.SchemeColor = 11Selection.ShapeRange.Fill.SolidSelection.ShapeRange.Fill.Visible = msoTrue |
Valóban nem olyan ijesztő, csak két figyelemre méltó dolgot kell megnézni; A Schemecolor nyilvánvalóan a szín és a 0,0,48,12.75.
Tehát mi a 0,0,48,12,75? Egyszerűen a bal, felső pozíció, szélesség és magasság. Ezeket tetszés szerint módosíthatja, az első kettő beállításával módosíthatja a dobozok pozícióját a képernyőn, az utóbbiakat pedig a doboz méretének módosítására. Ezeket a méreteket használtam, mert jó tipp volt, hogy egy cellával megegyező méretű dobozt készítsenek.
És itt van a kód, amellyel dinamikusan rajzolhatjuk a zöld képeket a fenti képen:
| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556 | Sub DynamicBoxes ()Dim x As Double- Ez vízszintes dobozokat eredményezX = 0 és 240 között 48. lépés'hivatkozás a 4 bal számra, felül, szélesség, magasságActiveSheet.Shapes.AddShape _(msoShapeFlowchartProcess, x, 0, 48, 12.75). Válassza kiSelection.ShapeRange.Fill.ForeColor.SchemeColor = 11Selection.ShapeRange.Fill.SolidSelection.ShapeRange.Fill.Visible = msoTrueKövetkező x'Ez függőleges dobozokat készítX = 0 -tól 127,5 -ig 12.75. LépésActiveSheet.Shapes.AddShape _(msoShapeFlowchartProcess, 0, x, 48, 12.75). Válassza kiSelection.ShapeRange.Fill.ForeColor.SchemeColor = 11Selection.ShapeRange.Fill.SolidSelection.ShapeRange.Fill.Visible = msoTrueKövetkező xEnd Sub |
