Excel VBA質問箱 IV

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

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


50594 / 76736 ←次へ | 前へ→

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

引用なし
パスワード
   はじめまして、よろしくお願い申し上げます。

結合したセルの大きさに合わせて画像を挿入するマクロを
使っているのですが、例えば画像を挿入したいセルをWクリックする事に
よって同様の操作をする方法はありますでしょうか?

現在の記述は以下の通りです。

Sub 画像貼付け()
   
  Dim Fname As String
  Dim mySh As Shape

  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

0 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 お礼

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