解決することができました。 わかってみれば簡単な事ですが…。 すい様、ありがとうございました。 Set GraphObject = ExcelObject.Charts.Add GraphObject.SetSourceData(XLSSheet.Range("A3:F10")),PlotBy = xlRows Const xlColumnStacked = 50 Const xlLocationAsObject = 2 A$ = "Sheet" & Cstr(n) ←追加 With GraphObject .Location(xlLocationAsObject) , A$ ←追加 End With