質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.35%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

Q&A

解決済

1回答

379閲覧

プルダウンリストで選択された名前の図を表示したい

Taro0827

総合スコア16

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

0グッド

0クリップ

投稿2023/06/07 05:37

実現したいこと

プルダウン(C1セル)で選択された名前の図を表示したい。
C1セルで選択した図をSheet1 C4セルに表示させたいです。
図一覧はSheet2に集約しております。

プログラムの流れは
①前回の図を削除→②プルダウンで図の名前を選択→③Sheet2の中にある②で選択した図をコピー→④Sheet1 C4セルに図を表示させる
という流れです。

以前試したこと

以前はシートごとに図を一枚ずつ貼り付けて、プルダウンで名前を指定していたのですが、シートに複数の図を貼り付けて、呼び出せないものかと思い、質問させていただきました。ちなみに一枚ずつシートに貼り付けていたときのプログラムは以下になります

発生している問題・エラーメッセージ

下記のコードで実行すると、エラーがでてしまいます。

【実行時エラー1004 指定した名前のアイテムが見つかりませんでした。】
型の問題でしょうか?"imageName"をString型でしてしているのですが、これがまずいでしょうか?

エラーの場所:ActiveSheet.Shapes.Range(Array("imageName")).Select→ここでエラーおきます。

該当のソースコード

Private Sub Worksheet_Change(ByVal Target As Range)

Dim imageName As String
Dim pic As Picture

If Target.Address = "$C$1" Then For Each pic In ActiveSheet.Pictures If Not Intersect(pic.TopLeftCell, Range("C4")) Is Nothing Then '図を削除 pic.Delete End If Next 'C1セルの値を取得 imageName = Sheets("Sheet1").Range("C1").Value Sheets("Sheet2").Select 'シート2を選択 ActiveSheet.Shapes.Range(Array("imageName")).Select '→C1セル名前の図を選択ですがここでエラー起きます Selection.Copy Sheets("Sheet1").Select Range("C4").Select ActiveSheet.Paste End If

End Sub

試したこと

以前はSheetごとに図を一枚ずつ貼り付けて、プルダウンで名前を指定していたのですが、シートに複数の図を貼り付けて、呼び出せないものかと思い、質問させていただきました。ちなみに一枚ずつシートに貼り付けていたときのプログラムは以下になります。

Worksheets("Sheet1").Select
For Each 〇〇 In Worksheets("Sheet2").Shapes
〇〇.Copy 'オブジェクトをコピー
ActiveSheet.Paste Link:=False

With ActiveSheet.Shapes("〇〇") '変更した図を選択 '位置とサイズを変更 .Top = Range("G2").Top '位置を指定 .Left = Range("G2").Left End With Next

補足情報(FW/ツールのバージョンなど)

ここにより詳細な情報を記載してください。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Taro0827

2023/06/07 05:49

追記です。 図の名前ですが、オブジェクトの選択と表示から図を選択し、プルダウンの名前と一致する名前をつけております。
bebebe_

2023/06/07 06:15

やりたいことを把握できてないかもしれませんがいろいろ勘違いされてそうです。 ぱっと見た感じ「ActiveSheet.Shapes(imageName).Select」ではだめですか?
Taro0827

2023/06/07 06:29

回答ありがとうございます。 「ActiveSheet.Shapes(imageName).Select」 こちらでいけました。ありがとうございます。Shapes(imageName)を失念しておりました。
guest

回答1

0

自己解決

bebebe_様より回答いただきました。

「ActiveSheet.Shapes(imageName).Select」

こちらでいけました。

投稿2023/06/07 06:31

Taro0827

総合スコア16

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.35%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問