| |
▼ひでお さん：
こんばんは。
>はじめまして。
>エクセルのマクロの初心者です(＾＾；
>どなたかわかれば教えて頂きたいのですが。
>マクロを使って図形Ａと図形Ｂを作図しその二つの図形をグループ化して
>図形Ｃを作るマクロを作りたいのですが、
>どうしてもエラーが出てマクロがうまく動きません。
>図形Ａ･Ｂは描けるのですが、グループ化が出来ません。
>解決方法ご存知の方がおられましたら教えていただけませんか？
>添付プログラムを参考にして頂ければ幸いです。
>宜しくお願い致します。
>
>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
確認してみて下さい。
それから
>どうしてもエラーが出てマクロがうまく動きません。
次回は、どんなエラーなのかも記述してくださいね（エラー番号等）！！
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 04/7/19(月) 22:37 -
