Kazalo
VBA risalni okvirji s kodo
Obstaja veliko razlogov, zakaj bi morda želeli programsko narisati škatle, bi bil avtomatiziran gantografski grafikon kul? Tukaj je en način za to.
To je osnovna koda za risanje škatle:
| 12345678910 | ActiveSheet.Shapes.AddShape _(msoShapeFlowchartProcess, 0, 0, 48, 12,75) .IzberiSelection.ShapeRange.Fill.ForeColor.SchemeColor = 11Selection.ShapeRange.Fill.SolidSelection.ShapeRange.Fill.Visible = msoTrue |
Res ni tako zastrašujoče, pogledati sta le dve pomembni stvari; Schemecolor je očitno barva in 0,0,48,12,75.
Kaj je torej 0,0,48,12,75? Preprosto levi položaj, zgornji položaj, širina in višina. Te lahko prilagodite tako, kot želite, tako da prva dva prilagodite, da spremenite položaj škatel na zaslonu, in zadnja dva, da spremenite velikost polja. Te dimenzije sem uporabil, ker so dobro ugibali pri izdelavi škatle enake velikosti kot celica.
In tukaj je koda, ki se uporablja za dinamično risanje zelenih škatel na zgornji sliki:
| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556 | Sub DynamicBoxes ()Dim x As Double„Tako nastanejo vodoravne škatleZa x = 0 do 240 Korak 48'sklic na 4 številke levo, zgoraj, širina, višinaActiveSheet.Shapes.AddShape _(msoShapeFlowchartProcess, x, 0, 48, 12.75) .IzberiSelection.ShapeRange.Fill.ForeColor.SchemeColor = 11Selection.ShapeRange.Fill.SolidSelection.ShapeRange.Fill.Visible = msoTrueNaslednji x„Tako nastanejo navpične škatleZa x = 0 do 127,5 Korak 12,75ActiveSheet.Shapes.AddShape _(msoShapeFlowchartProcess, 0, x, 48, 12,75) .IzberiSelection.ShapeRange.Fill.ForeColor.SchemeColor = 11Selection.ShapeRange.Fill.SolidSelection.ShapeRange.Fill.Visible = msoTrueNaslednji xEnd Sub |
