वर्ड 2007 में वीबीए का उपयोग करते हुए डब्ल्यू / ग्राफ्स को इंटरैक्ट करना

Question

मेरे पास एक लंबा एमएस वर्ड 2007 दस्तावेज है, जिसमें मुझे कभी-कभी सभी एम्बेडेड ग्राफ़ को बदलने की आवश्यकता होती है।

ये परिवर्तन काफी सरल और नियमित हैं कि मैं शायद मेरे लिए ये अपडेट बनाने के लिए एक VBA मैक्रो लिख सकता हूं।

लेकिन, मैं एक बहुत ही बुनियादी समस्या में आ गया हूं: मैं यह पता नहीं लगा सकता कि वीबीए में एक एम्बेडेड ग्राफ का चयन कैसे किया जाए। Word में "रिकॉर्ड मैक्रो" सुविधा किसी कारण से ग्राफ़ में परिवर्तन रिकॉर्ड नहीं करती है, और सभी ऑनलाइन ट्यूटोरियल एड्रेस एक्सेल में ग्राफ़ के साथ बातचीत करते हैं।

क्या कोई कृपया कुछ छोटे उदाहरण कोड (या एक लिंक की व्याख्या) पोस्ट कर सकता है जो वर्ड में एम्बेडेड ग्राफ़ के साथ कुछ बुनियादी बातचीत दिखाता है?

Answer 1

MSDN ब्लॉग में इस पोस्ट को देखें: PowerPoint और Word में Office चार्ट ऑब्जेक्ट मॉडल

यह Office 2007 के लिए SP2 की आवश्यकता है।

Comments

उत्तम। यह वही था जो मुझे चाहिए था - धन्यवाद!

— anschauung

Answer 2

यह दोनों एम्बेडेड छवियों (jpg, आदि) या एम्बेडेड चार्ट के लिए काम करना चाहिए:

'Kill 'em all: pictures, OLE object, hyperlinks, ActiveX controls, etc.
Sub DeleteAllShapes()
    Dim shp As InlineShape

    For Each shp In ActiveDocument.InlineShapes
        shp.Delete
    Next shp
End Sub

एक "आकार" ऑब्जेक्ट (और आकृतियाँ संग्रह) भी है जो सभी आकृतियों को अधिक उदारता से संदर्भित करता है - चाहे वे इनलाइन हों या नहीं। एक आकृति कई चीजें हो सकती हैं - इनलाइन आकार के प्रकार को वापस करने के लिए टाइप संपत्ति का उपयोग करें: चित्र, जुड़ा हुआ चित्र, एम्बेडेड OLE ऑब्जेक्ट, लिंक किए गए OLE ऑब्जेक्ट, ActiveX नियंत्रण और बहुत कुछ। यदि आपके पास कई अलग-अलग प्रकार हैं और उन्हें अलग करने की आवश्यकता है, तो आप अपने डिलीट को कुछ इस तरह से घेर सकते हैं:

If shp.Type = wdInlineShapeEmbeddedOLEObject Then
    shp.Delete
End If

नई तस्वीर जोड़ने का एक तरीका:

' Insert a picture at the current insertion point.
Sub InsertPicture(ByVal FileName As String)

    Selection.InlineShapes.AddPicture _
                             FileName:=FileName, _
                             SaveWithDocument:=True
End Sub