कोड के साथ प्रोग्रामेटिक रूप से बॉक्स बनाएं - वीबीए कोड उदाहरण

कोड के साथ वीबीए ड्रा बॉक्स

प्रोग्रामेटिक रूप से बक्से खींचने में सक्षम होने के कई कारण हैं, एक स्वचालित गैंट चार्ट अच्छा होगा? इसे करने का एक तरीका यहां दिया गया है।

बॉक्स बनाने के लिए यह मूल कोड है:

12345678910

एक्टिवशीट.आकृतियाँ।जोड़ें आकार _(msoShapeFlowchartProcess, 0, 0, 48, 12.75)। चुनेंSelection.ShapeRange.Fill.ForeColor.SchemeColor = 11चयन। आकार रेंज। भरें। ठोसSelection.ShapeRange.Fill.Visible = msoTrue

यह वास्तव में इतना कठिन नहीं है, देखने के लिए केवल दो उल्लेखनीय चीजें हैं; स्कीमकलर स्पष्ट रूप से रंग और 0,0,48,12.75 है।

तो 0,0,48,12.75 क्या है? बस लेफ्ट पोजीशन, टॉप पोजिशन, चौड़ाई और हाइट। आप इन्हें अपनी इच्छानुसार समायोजित कर सकते हैं, स्क्रीन पर बॉक्स की स्थिति बदलने के लिए पहले दो को समायोजित कर सकते हैं, और बाद के दो बॉक्स के आकार को बदलने के लिए। मैंने इन आयामों का उपयोग किया क्योंकि वे एक बॉक्स को एक सेल के आकार के समान बनाने के लिए एक अच्छा अनुमान थे।

और यहाँ उपरोक्त चित्र में हरे रंग के बक्से को गतिशील रूप से खींचने के लिए उपयोग किया गया कोड है:

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556

उप डायनामिकबॉक्स ()मंद x डबल के रूप में'यह क्षैतिज बक्से बनाता हैx = 0 से 240 के लिए चरण 48'बाएं, शीर्ष, चौड़ाई, ऊंचाई के 4 नंबरों का संदर्भ'एक्टिवशीट.आकृतियाँ।जोड़ें आकार _(msoShapeFlowchartProcess, x, 0, 48, 12.75)। चुनेंSelection.ShapeRange.Fill.ForeColor.SchemeColor = 11चयन। आकार रेंज। भरें। ठोसSelection.ShapeRange.Fill.Visible = msoTrueअगला एक्स'यह लंबवत बक्से बनाता हैx = 0 से 127.5 के लिए चरण 12.75एक्टिवशीट.आकृतियाँ।जोड़ें आकार _(msoShapeFlowchartProcess, 0, x, 48, 12.75)। चुनेंSelection.ShapeRange.Fill.ForeColor.SchemeColor = 11चयन। आकार रेंज। भरें। ठोसSelection.ShapeRange.Fill.Visible = msoTrueअगला एक्सअंत उप