いつもこのサイトには大変お世話になっております。 Excekのオートシェイプをつくるスクリプトがわかりません。 Excelのマクロをスクリプトにセットしても「指定された座標は境界を越えています」のエラーになってしまいます。 どなたが教えて頂けないでしょうか、お願い致します。 サンプル Set sheet = excelWorkbook.Worksheets(ｼｰﾄ名) Sheet.Shapes.AddShape(msoShapeDonut, 81#, 159#, 150#, 111#). Select Selection.ShapeRange.ScaleWidth 0.95, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.31, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10 Selection.ShapeRange.Fill.Transparency = 0.8 Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoFalse