Lang L: none (table-of-contents)
VBA joonistuskastid koodiga
On palju põhjuseid, miks võiksite programmiliselt kaste joonistada - automaatne portaallaud oleks lahe? Siin on üks võimalus seda teha.
See on kasti joonistamise põhikood:
| 12345678910 | ActiveSheet.Shapes.AddShape _(msoShapeFlowchartProcess, 0, 0, 48, 12.75). ValigeSelection.ShapeRange.Fill.ForeColor.SchemeColor = 11Selection.ShapeRange.Fill.SolidSelection.ShapeRange.Fill.Visible = msoTrue |
See pole tõesti nii heidutav, vaadata on ainult kahte märkimisväärset asja; Skeemivärv on ilmselgelt värv ja 0,0,48,12.75.
Mis on siis 0,0,48,12,75? Lihtsalt vasak asend, ülemine asend, laius ja kõrgus. Saate neid kohandada, kuidas soovite, kohandades kahte esimest, et muuta kastide asukohta ekraanil, ja kahte viimast, et muuta kasti suurust. Ma kasutasin neid mõõtmeid, kuna need olid hea arvamus lahtriga sama suuruse kasti tegemisel.
Ja siin on kood, mida kasutatakse ülaltoodud pildi roheliste kastide dünaamiliseks joonistamiseks:
| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556 | Alamdünaamilised kastid ()Dim x As Double"See teeb horisontaalsed kastidX = 0 kuni 240 Samm 48"viide neljale vasakule numbrile, ülaosa, laius, kõrgusActiveSheet.Shapes.AddShape _(msoShapeFlowchartProcess, x, 0, 48, 12.75). ValigeSelection.ShapeRange.Fill.ForeColor.SchemeColor = 11Selection.ShapeRange.Fill.SolidSelection.ShapeRange.Fill.Visible = msoTrueJärgmine x"See teeb vertikaalsed kastidX = 0 kuni 127,5 Samm 12.75ActiveSheet.Shapes.AddShape _(msoShapeFlowchartProcess, 0, x, 48, 12.75). ValigeSelection.ShapeRange.Fill.ForeColor.SchemeColor = 11Selection.ShapeRange.Fill.SolidSelection.ShapeRange.Fill.Visible = msoTrueJärgmine xEnd Sub |
