tat********

2008/7/16 14:53

11回答

ＶＢＡで既にある図形を選択し、コピーし、指定のセルに貼り付ける方法を教えて下さい

ＶＢＡで既にある図形を選択し、コピーし、指定のセルに貼り付ける方法を教えて下さい

補足

回答ありがとうございます。 ただ図形のある場所のみ分かっていますが、図形の名前が分かっていません。 複数のブックで使用する共通マクロにしたいので色々な名前が存在します。 例えば エクセルを開いて、セルＡ１にある図形の名前と、セルＣ１にある図形の名前を知る事は出来ますでしょうか

Office系ソフトウェア・52,998閲覧

ベストアンサー

hiy********

2008/7/17 15:27（編集あり）

＞ＶＢＡで既にある図形を選択し、コピーし、 以下のような方法があります。 【A案】 '名前で選択する場合 With ActiveSheet.Shapes("Rectangle 1") .Left = Range("C3").Left .Top = Range("C3").Top End With ---------------------- 【B案】 Dim myShape As Shape '↓アクティブシートのシェイプの中で For Each myShape In ActiveSheet.Shapes '↓K5に左上がある図形を移動する場合 If myShape.TopLeftCell.Address(0, 0) = "K5" Then myShape.Left = Range("C3").Left myShape.Top = Range("C3").Top End If Next いづれも図形をC3に移動します。試してみてください。 ---------------------- 補足への追記： 図形の場所がわかっていれば、【B案】にて対象となる図形を移動することが出来ます。その場合、図形の名前を取得しなくても移動できます。 【B案】を改変されるとよいのではと思います。

この回答はいかがでしたか？ リアクションしてみよう

ThanksImg質問者からのお礼コメント

回答ありがとうございます。 【B案】で色々やってみます。

お礼日時：2008/7/17 17:18