Sub ShowImage(imagePath As String, targetSheet As Worksheet)

Dim img As Object ' 画像を表示 Set img = targetSheet.Shapes.AddPicture(Filename:=imagePath, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _ Left:=targetSheet.Range("A1").Left, Top:=targetSheet.Range("A1").Top, Width:=-1, Height:=-1) ' 画像を指定範囲に拡大表示 With img .LockAspectRatio = msoTrue ' 縦横比を維持 .Width = targetSheet.Range("R20").Left - targetSheet.Range("A1").Left .Height = targetSheet.Range("R20").Top - targetSheet.Range("A1").Top .Placement = 1 ' xlMoveAndSize End With End Sub

コメント

コメントを投稿

このブログの人気の投稿

 Sub SearchAndUpdate()     Dim searchRange As Range     Dim searchValue As Variant     Dim cell As Range          ' 検索範囲を指定（C15からO15の範囲）     Set searchRange = Range("C15:O15")          ' 検索する値を取得     searchValue = Range("C17").Value          ' 検索範囲をループして値を比較し、一致するセルがあれば更新する     For Each cell In searchRange         If cell.Value = searchValue Then             Range("Q15").Value = searchValue             Exit For ' 一致するセルが見つかったらループを終了         End If     Next cell End Sub
続きを読む
 モード選択 以下のVBAコードは、ボタンを押すとメッセージボックスが表示され、ユーザーが「画像1」または「画像2」を選択できるようにします。選択に応じて、あらかじめ設定されているマクロAまたはマクロBが実行されます。 Sub ShowImageSelector()     Dim selectedImage As String          ' モード選択メッセージボックスを表示     selectedImage = MsgBox("画像を選択してください。", vbQuestion + vbYesNoCancel, "画像選択")          ' 選択された画像に応じて処理を実行     Select Case selectedImage         Case vbYes ' 画像1が選択された場合             Call Image1_Click ' 画像1のクリック処理を実行         Case vbNo ' 画像2が選択された場合             Call Image2_Click ' 画像2のクリック処理を実行         Case vbCancel ' キャンセルが選択された場合             ' 何もしない     End Select End Sub Sub Image1_Click()     ' 画像1がクリックされたときの処理を記述     ' 例えば、dataシートのA10にある画像1をクリックした場合の処理を記述     MsgBox "画像1がクリックされました。"     Call MacroA ' マクロAを実行 End Sub Sub Image2_Click()     ' 画像2がクリックされたときの処理を記述     ' 例えば、dataシートのZ10にある画像2をクリックした場合の処理を記述     MsgBox "画像2がクリックされました。"     Call MacroB ' マクロBを実行 End Sub Sub MacroA()     ' 画像1の処理を記述  
続きを読む