Excel VBA質問箱 IV

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

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


50587 / 76732 ←次へ | 前へ→

【31030】Re:Wクリックで画像を挿入するには
回答  MARBIN  - 05/11/9(水) 15:23 -

引用なし
パスワード
   Worksheet_BeforeDoubleClickを使います。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  Dim Fname As String
  Dim mySh As Shape
  
  Cancel = True

  Fname = Application.GetOpenFilename _
    (filefilter:="JPEG形式(*.jpg), *.jpg", _
    Title:="画像を選択して下さい")

  If Fname = "False" Then Exit Sub

  With ActiveSheet
    Set mySh = .Shapes.AddPicture(Filename:=Fname, _
      linktofile:=True, savewithdocument:=False, _
      Left:=Selection.Left, Top:=Selection.Top, _
      Width:=Selection.Width, _
      Height:=Selection.Height)
  End With

'  ChDir ThisWorkbook.Path
  
End Sub
1 hits

【31027】Wクリックで画像を挿入するには よしお 05/11/9(水) 14:49 質問
【31030】Re:Wクリックで画像を挿入するには MARBIN 05/11/9(水) 15:23 回答
【31032】Re:Wクリックで画像を挿入するには Kein 05/11/9(水) 15:42 回答
【31034】Re:Wクリックで画像を挿入するには よしお 05/11/9(水) 16:19 質問
【31035】Re:Wクリックで画像を挿入するには Kein 05/11/9(水) 16:34 発言
【31039】Re:Wクリックで画像を挿入するには よしお 05/11/9(水) 19:21 お礼
【32599】Re:Wクリックで画像を挿入するには 再投稿 よしお 05/12/19(月) 9:05 質問
【32603】Re:Wクリックで画像を挿入するには 再投稿 Kein 05/12/19(月) 12:05 回答
【32604】Re:Wクリックで画像を挿入するには 再投稿 Kein 05/12/19(月) 12:07 発言
【32612】Re:Wクリックで画像を挿入するには 再投稿 よしお 05/12/19(月) 16:27 質問
【32614】Re:Wクリックで画像を挿入するには 再投稿 Kein 05/12/19(月) 16:46 回答
【32616】Re:Wクリックで画像を挿入するには 再投稿 よしお 05/12/19(月) 17:22 お礼

50587 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free