Excel VBA質問箱 IV

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

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


49060 / 76736 ←次へ | 前へ→

【32599】Re:Wクリックで画像を挿入するには 再投稿
質問  よしお  - 05/12/19(月) 9:05 -

引用なし
パスワード
   こんにちは。
以前にこちらでアドバイスを頂きましたよしおと申します。

以来、快適に作業していたのですが、
画像を挿入したxlsファイルをメールに添付した場合、
受信者の側では全ての画像が表示されていない事が分かりました。

おそらく、こちらのローカルでの画像ファイルパスを参照している事が
原因かと推測しているのですが、
改善策はありますでしょうか?

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

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

よろしくお願い申し上げます。

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

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