ここから本文です

画像を下記マクロで貼り付けをしています。

gri_gri33さん

2017/11/1318:09:54

画像を下記マクロで貼り付けをしています。

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

Cancel = True

'===============画像選択
myF = Application.GetOpenFilename _
("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , "画像の選択", , False)
If myF = False Then
MsgBox "画像を選択してください(終了)"
Exit Sub
End If

'===============画像の掃除
For Each mySP In ActiveSheet.Shapes
myAD1 = mySP.TopLeftCell.MergeArea.Address
myAD2 = Target.Address
If myAD1 = myAD2 Then mySP.Delete
Next

'===============画像の貼り付け
Set mySP = ActiveSheet.Pictures.Insert(myF)

'===============タテヨコの縮尺を保持
myHH = Target.Height / mySP.Height
myWW = Target.Width / mySP.Width
If myHH > myWW Then
mySP.Height = mySP.Height * myWW
mySP.Width = Target.Width
Else
mySP.Height = Target.Height
mySP.Width = mySP.Width * myHH
End If

'===============中央へ調整
myHH2 = (Target.Height / 2) - (mySP.Height / 2)
myWW2 = (Target.Width / 2) - (mySP.Width / 2)
mySP.Top = Target.Top + myHH2
mySP.Left = Target.Left + myWW2

Set mySP = Nothing

End Sub

他社の人へ、メールで送ると画像が表示されません。
マクロを変えないといけないでしょうか?
また、膨大に貼り付けをしており、表示させる方法はあるのでしょうか?

皆様のお力をお貸し下さい。

閲覧数:
56
回答数:
1
お礼:
25枚

違反報告

ベストアンサーに選ばれた回答

2017/11/1319:14:18

こんにちは。
エクセルのバージョンによって、コードが変化しつつありますね。
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q106439229...


の説明では、ActiveSheet.Pictures.Insert(myF)を使わないで、図を挿入し、サイズの調整をするコードになってます

お手元のエクセルバージョンを知らせてください。

  • 質問者

    gri_gri33さん

    2017/11/1319:49:41

    回答ありがとうございます。

    エクセルのバージョンは、2010になります。

    読解能力が無くて申し訳ないですが
    すでに貼り付けた膨大な写真を、他社のPCでも画像が見れるようになる方法はあるのでしょうか?

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この質問は投票によってベストアンサーに選ばれました!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

5文字以上入力してください

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。