Macro code to check Show Legend on chart

[#1]

Hi,

I'm trying to create a macro that would "check" the Show Legend on the presentation tab of my chart (CH28) but my code doesn't seem to work. Thanks in advance for your help!

[#2 · Accepted solution]

figured it out...here is the code:

sub SetLegend

set Graph = ActiveDocument.GetSheetObject("CH28")

set p = Graph.GetProperties

set cp = p.ChartProperties

set leg = cp.Legend

if  leg.Show = false then

leg.Show = true

else

leg.Show = false

end if

Graph.SetProperties p

end sub