VBA Draw Box με κώδικα
Υπάρχουν πολλοί λόγοι για τους οποίους μπορεί να θέλετε να μπορείτε να σχεδιάζετε προγραμματισμένα κουτιά, ένα αυτοματοποιημένο διάγραμμα gantt θα ήταν καλό; Εδώ είναι ένας τρόπος για να το κάνετε.
Αυτός είναι ο βασικός κώδικας για να σχεδιάσετε ένα πλαίσιο:
12345678910 | ActiveSheet.Shapes.AddShape _(msoShapeFlowchartProcess, 0, 0, 48, 12.75). ΕπιλέξτεSelection.ShapeRange.Fill.ForeColor.SchemeColor = 11Selection.ShapeRange.Fill.SolidSelection.ShapeRange.Fill.Visible = msoTrue |
Δεν είναι πραγματικά τόσο τρομακτικό, υπάρχουν μόνο δύο αξιοσημείωτα πράγματα που πρέπει να κοιτάξετε. Το Schemecolor είναι προφανώς το χρώμα και το 0,0,48,12,75.
Ποιο είναι λοιπόν το 0,0,48,12,75; Απλώς η αριστερή θέση, η κορυφαία θέση, το πλάτος και το ύψος. Μπορείτε να τα προσαρμόσετε όπως θέλετε, προσαρμόζοντας τα δύο πρώτα για να αλλάξετε τη θέση των κουτιών στην οθόνη και τα δύο τελευταία για να αλλάξετε το μέγεθος του κουτιού. Χρησιμοποίησα αυτές τις διαστάσεις επειδή ήταν μια καλή εικασία για να φτιάξω ένα κουτί ίδιου μεγέθους με ένα κελί.
Και εδώ είναι ο κώδικας που χρησιμοποιείται για τη δυναμική σχεδίαση των πράσινων πλαισίων στην παραπάνω εικόνα:
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556 | Sub DynamicBoxes ()Dim x As Double«Αυτό κάνει οριζόντια κουτιάΓια x = 0 έως 240 Βήμα 48«αναφορά στους 4 αριστερούς αριθμούς, επάνω, πλάτος, ύψοςActiveSheet.Shapes.AddShape _(msoShapeFlowchartProcess, x, 0, 48, 12.75). ΕπιλέξτεSelection.ShapeRange.Fill.ForeColor.SchemeColor = 11Selection.ShapeRange.Fill.SolidSelection.ShapeRange.Fill.Visible = msoTrueΕπόμενο x«Αυτό κάνει κάθετα κουτιάΓια x = 0 έως 127,5 Βήμα 12.75ActiveSheet.Shapes.AddShape _(msoShapeFlowchartProcess, 0, x, 48, 12,75). ΕπιλέξτεSelection.ShapeRange.Fill.ForeColor.SchemeColor = 11Selection.ShapeRange.Fill.SolidSelection.ShapeRange.Fill.Visible = msoTrueΕπόμενο xΤέλος υπο |