Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


65134 / 76734 ←次へ | 前へ→

【16175】Re:初心者なのでお願いします。
回答  ichinose  - 04/7/19(月) 23:17 -

引用なし
パスワード
   ▼ひでお さん:
こんばんは。
>はじめまして。
>エクセルのマクロの初心者です(^^;
>どなたかわかれば教えて頂きたいのですが。
>マクロを使って図形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

確認してみて下さい。

それから
>どうしてもエラーが出てマクロがうまく動きません。

次回は、どんなエラーなのかも記述してくださいね(エラー番号等)!!
1 hits

【16173】初心者なのでお願いします。 ひでお 04/7/19(月) 22:37 質問
【16175】Re:初心者なのでお願いします。 ichinose 04/7/19(月) 23:17 回答

65134 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free