> Excel の方を先に立ち上げて置く必要があるようです。下記のようにVBから直接データを入力する方法もあります。OLE1.object.Sheets("Sheet1").[B2].Value = "100"OLE1.object.Sheets("Graph1").ChartType = -4100 '3D縦棒グラフ