VBAのGraphicオブジェクト

Graphicオブジェクト

Graphicオブジェクトについての解説になります。

Graphicオブジェクトとは

Graphicオブジェクトは、ヘッダーおよびフッターの画像オブジェクトに適用されるプロパティを包含します。

Graphic オブジェクトを返す PageSetup オブジェクトのプロパティはいくつかあります。
Graphic オブジェクトを取得するには、CenterFooterPicture プロパティ、CenterHeaderPicture プロパティ、LeftFooterPicture プロパティ、LeftHeaderPicture プロパティ、RightFooterPicture プロパティ、または RightHeaderPicture プロパティを使用します。
次の使用例は、C:\ ドライブから Sample.jpg という画像を、フッターの左のセクションに追加します。次の使用例では、C:\ ドライブに Sample.jpg というファイルがあるものとします。


Sub sample()

    With ActiveSheet.PageSetup.LeftFooterPicture
        .FileName = "C:\Sample.jpg"
        .Height = 275.25
        .Width = 463.5
        .Brightness = 0.36
        .ColorType = msoPictureGrayscale
        .Contrast = 0.39
        .CropBottom = -14.4
        .CropLeft = -28.8
        .CropRight = -14.4
        .CropTop = 21.6
    End With
    ' 左フッターのイメージの表示を有効にします。
    ActiveSheet.PageSetup.LeftFooter = "&G"

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

左フッターにイメージを表示するために、 LeftFooter プロパティの一部として "&G" が必要です。