図の背景を透過にする

Sub 選択図を透過にするテスト()
    
    'オブジェクトが選択されているか
    If VarType(Selection) <> vbObject Then Exit Sub
    
    Dim myShape As ShapeRange
    Set myShape = Selection.ShapeRange
    
    With myShape.PictureFormat
        .TransparentBackground = msoTrue
        .TransparencyColor = RGB(255, 255, 255) '白
    End With
    myShape.Fill.Visible = msoFalse
    
End Sub

別記事で作成したQRコードを透過にできた！
セルの枠線に邪魔されて読み取り精度落ちてワロタ

以上。