実現したいこと
プルダウン(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/ツールのバージョンなど)
ここにより詳細な情報を記載してください。
回答1件
あなたの回答
tips
プレビュー