Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

24632 / 76732

←次へ　｜　前へ→


	【57448】［無題］

nana3 - 08/8/23(土) 22:54 -


	引用なし

	パスワード

エクセル２０００で結合したセルに写真を挿入したく下記を実行しましたがセルに挿入されるのですが、セルのサイズに変更しない写真が残ってしまいましてアドバイスをいただきたいと思います。
よろしくお願い致します。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
　　Cancel = True
　　n = Application.GetOpenFilename _
　　　　　 ("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , "画像の選択", , False)
　　If n = False Then
　　　　MsgBox "画像を選択してください(終了)"
　　　　Exit Sub
　　End If
　　Set na = ActiveSheet.Pictures.Insert(n)
　　With Me.Pictures.Insert(n)
　　.Top = Target.Top
　　.Left = Target.Left
　　.Width = Target.Width
　　.Height = Target.Height
End With
　　　
End Sub

5 hits

▼

【57448】［無題］ nana3 08/8/23(土) 22:54

≪