[[20210920103620]]　『画像の背景（白）を透明色に』（マッスグマ）　ページの最後に飛ぶ

『画像の背景（白）を透明色に』（マッスグマ）

初めまして。画像を取り込むマクロで詰まってしまったので質問させてください。

Sub 画像挿入()

Dim PicFile
PicFile = Application.GetOpenFilename("画像ファイル " & "(*.tif), *.tif", Title:="ファイル選択")
If PicFile = False Then Exit Sub
With ActiveSheet.Pictures.Insert(PicFile)
.Top = Range("A2").Top
.Left = Range("A2").Left
.Width = Range("A2:J2").Width
End With

End Sub

画像の位置やサイズを一々変更する作業を短縮するために次のような画像挿入マクロを作ったのですが、これにさらに透明色（白)を設定するVBAを加えたいです。
自分なりに調べてみたのですが、良い方法が分かりませんでした。
ご教授よろしくお願い致します。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

＞良い方法が分かりませんでした。
「良い」とは個人の価値観なので、何が良くて何が良くないのかあなた以外の人にはわかりません。
ご自身で調べた中で、「良くない」方法を書いてください。
それ以外の方法がもしあれば回答がつくかもしれません
（とおりすがり） 2021/09/20(月) 10:44

  With ActiveSheet.Pictures.Insert(PicFile)
     With .ShapeRange.PictureFormat
        .TransparentBackground = True
        .TransparencyColor = vbWhite
     End With
  End With
（とおりすがり） 2021/09/20(月) 11:03

コメント返信：

[ 一覧(最新更新順) ]

[[20210920103620]] 『画像の背景（白）を透明色に』（マッスグマ） ページの最後に飛ぶ

[[20210920103620]]　『画像の背景（白）を透明色に』（マッスグマ）　ページの最後に飛ぶ