Is it possible to set reference multiple graphs with one click?

[#1]

Is it possible to set reference multiple graphs with one click?

I work based on this script.

When I repeat the scrip for another graph, the previous stopts working....

Sub setReferenceALL

set Graph = ActiveDocument.getSheetObject("X")

Graph.SetReference

end sub

Sub clearReferenceALL

set Graph = ActiveDocument.getSheetObject("X")

Graph.ClearReference

end sub