|
こんにちは。
以前にこちらでアドバイスを頂きましたよしおと申します。
以来、快適に作業していたのですが、
画像を挿入した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
よろしくお願い申し上げます。
|
|