Ящики для малювання VBA з кодом
Існує багато причин, чому ви можете мати можливість програмувати вікна, автоматична діаграма Ганта була б крутою? Ось один із способів зробити це.
Це основний код для малювання коробки:
| 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 | Додаткові 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Далі xEnd Sub |
