|
▼ひでお さん:
こんばんは。
>はじめまして。
>エクセルのマクロの初心者です(^^;
>どなたかわかれば教えて頂きたいのですが。
>マクロを使って図形Aと図形Bを作図しその二つの図形をグループ化して
>図形Cを作るマクロを作りたいのですが、
>どうしてもエラーが出てマクロがうまく動きません。
>図形A・Bは描けるのですが、グループ化が出来ません。
>解決方法ご存知の方がおられましたら教えていただけませんか?
>添付プログラムを参考にして頂ければ幸いです。
>宜しくお願い致します。
>
>Sub グループ化()
>'
>' グループ化 Macro
>' マクロ記録日 : 2004/7/19 ユーザー名 : hideo
>'
>
>'
> ActiveSheet.Shapes.AddShape(msoShapeRectangle, 109.5, 81.75, 90#, 83.25). _
> Select
> ActiveSheet.Shapes.AddShape(msoShapeRectangle, 235.5, 81.75, 89.25, 80.25). _
> Select
> ActiveSheet.Shapes.Range(Array("", "Rectangle 2")).Select
'何回かこの操作を繰り返していますよね? 作成される図形の名前が
'変わってしまいます(Rectangle 3 とかに)。
> Selection.ShapeRange.Group.Select
>End Sub
以下のようにしてみて下さい
'=================================================================
Sub グループ化()
With ActiveSheet.Shapes
.Range(Array(.AddShape(msoShapeRectangle, 109.5, 81.75, 90#, 83.25).Name, _
.AddShape(msoShapeRectangle, 235.5, 81.75, 89.25, 80.25).Name)).Group
End With
End Sub
確認してみて下さい。
それから
>どうしてもエラーが出てマクロがうまく動きません。
次回は、どんなエラーなのかも記述してくださいね(エラー番号等)!!
|
|