Excel VBA質問箱 IV

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

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


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

50585 / 76732

←次へ　｜　前へ→


	【31032】Re:Wクリックで画像を挿入するには

Kein - 05/11/9(水) 15:42 -


	引用なし

	パスワード

シートモジュールに

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
　 Dim Lp As Single, Tp As Single
　 Dim Wp As Single, Hp As Single
　 Dim fName As String
　 Const Ph As String = _
　 "C:\Documents and Settings\User\My Documents\My Pictures"
　 '↑実際に画像ファイルを保存しているフォルダーのバスに変更
　
　 With Target
　　　Lp = .Left: Tp = .Top
　　　Wp = .Height: Hp = .Height
　 End With
　 ChDir Ph
　 With Application
　　　 fName = .GetOpenFilename("画像ファイル(*.jpg), *.jpg", _
　　　 Title:="画像を選択して下さい")
　　　 If fName = "False" Then GoTo ELine
　　　 .ScreenUpdating = False
　 End With
　 Cancel = True
　 With ActiveSheet.Pictures.Insert(fName)
　　　.Left = Lp: .Top = Tp
　　　.Width = Wp: .Height = Hp
　　　.OnAction = "Del_Pic"
　 End With
ELine:
　 With Application
　　　ChDir .DefaultFilePath
　　　.ScreenUpdating = True
　 End With
End Sub

標準モジュールに

Sub Del_Pic()
　 Dim x As Variant
　
　 x = Application.Caller
　 If VarType(x) <> 8 Then Exit Sub
　 If MsgBox("この画像を削除しますか", 36) = 6 Then
　　　ActiveSheet.Pictures(x).Delete
　 End If
End Sub

を入れて、任意のセルをダブルクリックして下さい。
挿入した画像は、クリックすると削除するかどうかを選ぶ MsgBox が出るように
しておきました。

1 hits

▼

【31027】Wクリックで画像を挿入するには よしお 05/11/9(水) 14:49