Excel VBA check if chart is part of a group

[Johnny C]

Hi

I'm writing an Add-In so people in my team can copy charts automatically to PowerPoint or Word.
I just tested it on a file where one of the charts has text boxed and an arrow grouped together - these will need to be copied together.

First, How do I tell that the chart is part of a Group. I can use error trapping as it will crash when I do

ActiveChart.ChartArea.Copy

if it's grouped but I'd rather do it properly if it can.

If I can tell it's in a group, I identify which Group it is part of so that I can then copy the whole group instead of the chart?

TIA

 

[pgc01]

Hi

Lets say you have a chart in the active worksheet called "MyChart"

Execute this to see if it's not part of a group or if it's part of a group and, in this case, the name of the group:

Sub ChartIsPartOfGroup()
Dim chtO As ChartObject
Dim sGroup As String

Set chtO = ActiveSheet.ChartObjects("MyChart")
sGroup = ""
On Error Resume Next
sGroup = chtO.ShapeRange.ParentGroup.Name
On Error GoTo 0

MsgBox IIf(sGroup = "", "Not grouped", "Group name: " & sGroup)

End Sub

 

[Johnny C]

Cheers. I was hoping to do it without error trapping but if I can get the group name I can do a prescan I guess to ID charts in groups and not in groups and deal with each separately.

 

[pgc01]

I was hoping to do it without error trapping ...

Sorry, I don't know if it's possible without error trapping.