Excel VBA質問箱 IV

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

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


11422 / 13645 ツリー ←次へ | 前へ→

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

【16173】初心者なのでお願いします。
質問  ひでお E-MAIL  - 04/7/19(月) 22:37 -

引用なし
パスワード
   はじめまして。
エクセルのマクロの初心者です(^^;
どなたかわかれば教えて頂きたいのですが。
マクロを使って図形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 1", "Rectangle 2")).Select
  Selection.ShapeRange.Group.Select
End Sub

【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

確認してみて下さい。

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

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

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