ВБА кутије за цртање са кодом
Постоји много разлога због којих бисте желели да будете у могућности да програмски нацртате кутије, а аутоматизовани гантограм би био кул? Ево једног начина да то учините.
Ово је основни код за цртање оквира:
| 12345678910 | АцтивеСхеет.Схапес.АддСхапе _(мсоСхапеФловцхартПроцесс, 0, 0, 48, 12.75) .ОдабериСелецтион.СхапеРанге.Филл.ФореЦолор.СцхемеЦолор = 11Селецтион.СхапеРанге.Филл.СолидСелецтион.СхапеРанге.Филл.Висибле = мсоТруе |
Заиста није тако застрашујуће, постоје само две запажене ствари које треба погледати; Сцхемецолор је очигледно боја и 0,0,48,12.75.
Дакле, колико је 0,0,48,12,75? Једноставно леви положај, горњи положај, ширина и висина. Можете их прилагодити како год желите, прилагођавајући прва два да бисте променили положај кутија на екрану, а последња два да промените величину оквира. Користио сам ове димензије јер су биле добра претпоставка у прављењу кутије исте величине као ћелија.
И ево кода који се користи за динамичко цртање зелених кутија на горњој слици:
| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556 | Суб ДинамицБокес ()Дим к Ас Доубле'Ово чини хоризонталне кутијеЗа к = 0 до 240 Корак 48'референца на 4 броја лево, горе, ширина, висинаАцтивеСхеет.Схапес.АддСхапе _(мсоСхапеФловцхартПроцесс, к, 0, 48, 12.75) .ОдабериСелецтион.СхапеРанге.Филл.ФореЦолор.СцхемеЦолор = 11Селецтион.СхапеРанге.Филл.СолидСелецтион.СхапеРанге.Филл.Висибле = мсоТруеДаље к„Ово чини вертикалне кутијеЗа к = 0 до 127,5 Корак 12,75АцтивеСхеет.Схапес.АддСхапе _(мсоСхапеФловцхартПроцесс, 0, к, 48, 12.75) .ОдабериСелецтион.СхапеРанге.Филл.ФореЦолор.СцхемеЦолор = 11Селецтион.СхапеРанге.Филл.СолидСелецтион.СхапеРанге.Филл.Висибле = мсоТруеДаље кЕнд Суб |
