चार्ट संख्या

Question

संदर्भित किए बिना चार्ट का चयन करना मैं चार्ट संख्या जानने के बिना वीबीए का उपयोग करके एक्सेल में शीट पर एक यादृच्छिक चार्ट चुनना चाहता हूं क्योंकि चार्ट हमेशा संख्या में बदलता है। क्या कोई मदद कर सकता है? क्या चार्ट संख्या का संदर्भ दिए बिना चार्ट का चयन करना संभव है? मैं सक्रिय चार्ट का चार्ट नाम बदलना चाहता हूं।

1 ActiveSheet.ChartObjects("Chart 409").Activate 
2 ActiveSheet.Shapes("Chart 409").Name = "Chart 1" 
3 ActiveSheet.ChartObjects("Chart 1").Activate 

Answer 1

सभी चार्ट या यादृच्छिक एक का चयन करने के लिए, आप चार्ट इंडेक्स का उपयोग कर सकते हैं।

Sub getcharts() 

Dim ws As Worksheet 
Dim ch As ChartObject 
Set ws = ActiveSheet 

cnt = ws.ChartObjects.Count 
random_num = Application.WorksheetFunction.RandBetween(1, cnt) 

ws.ChartObjects(random_num).Name = "NAM" 'The Random chart 
For Each ch In ws.ChartObjects 
    ch.Name = "Put the name of Chart here " 
    'Or Do anything with you all the charts here 
Next 


End Sub