Excel VBAでチャートや画像の大きさ・位置を調整してPDF保存する方法

この記事では、Excel VBAを使用してチャートや画像の大きさと位置を調整し、その後にPDFとして保存する手順について詳しく説明します。具体的なコード例とその解説、さらに応用例を3つ紹介しますので、実務での利用や学習にお役立てください。

基本的な手順とコード

Excel VBAでチャートや画像の大きさと位置を調整し、PDFとして保存するには以下のステップが必要です：

1. 対象となるチャートや画像を選択する。
2. 大きさや位置を調整する。
3. ワークシートをPDFとして保存する。

以下は、この手順を実装したVBAのサンプルコードです。

Sub AdjustAndSaveAsPDF()
    Dim shp As Shape
    Set shp = ThisWorkbook.Sheets("Sheet1").Shapes("Chart 1")
    
    ' チャートや画像の大きさと位置を調整
    shp.Top = 50
    shp.Left = 50
    shp.Width = 400
    shp.Height = 300
    
    ' PDFとして保存
    ThisWorkbook.Sheets("Sheet1").ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:\path\to\your\output.pdf"
End Sub

コードの解説

– `Shape`オブジェクトを使用して、ワークシート上の形状やグラフを参照します。
– `Top`、`Left`、`Width`、`Height`プロパティを使用して、形状の位置とサイズを調整します。
– `ExportAsFixedFormat`メソッドを使用して、ワークシートをPDFとして保存します。

応用例

1. 複数のチャートや画像を調整して保存

Sub AdjustMultipleShapesAndSaveAsPDF()
    Dim shp As Shape
    
    ' 全ての形状をループして調整
    For Each shp In ThisWorkbook.Sheets("Sheet1").Shapes
        If shp.Type = msoPicture Or shp.Type = msoChart Then
            shp.Top = 50
            shp.Left = 50
            shp.Width = 400
            shp.Height = 300
        End If
    Next shp
    
    ' PDFとして保存
    ThisWorkbook.Sheets("Sheet1").ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:\path\to\your\output.pdf"
End Sub

この応用例では、ワークシート上のすべての画像とチャートを調整します。

2. 特定のキーワードが含まれる形状だけを調整

Sub AdjustSpecificShapesAndSaveAsPDF()
    Dim shp As Shape
    
    For Each shp In ThisWorkbook.Sheets("Sheet1").Shapes
        If InStr(1, shp.Name, "Keyword", vbTextCompare) > 0 Then
            shp.Top = 50
            shp.Left = 50
            shp.Width = 400
            shp.Height = 300
        End If
    Next shp
    
    ' PDFとして保存
    ThisWorkbook.Sheets("Sheet1").ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:\path\to\your\output.pdf"
End Sub

3. ユーザーに位置や大きさの調整値を入力させる

Sub AdjustUserInputAndSaveAsPDF()
    Dim shp As Shape
    Dim userTop As Double, userLeft As Double, userWidth As Double, userHeight As Double
    
    ' ユーザーからの入力を受け取る
    userTop = InputBox("Enter the top position:")
    userLeft = InputBox("Enter the left position:")
    userWidth = InputBox("Enter the width:")
    userHeight = InputBox("Enter the height:")
    
    Set shp = ThisWorkbook.Sheets("Sheet1").Shapes("Chart 1")
    
    shp.Top = userTop
    shp.Left = userLeft
    shp.Width = userWidth
    shp.Height = userHeight
    
    ' PDFとして保存
    ThisWorkbook.Sheets("Sheet1").ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:\path\to\your\output.pdf"
End Sub

まとめ

Excel VBAを使用してチャートや画像の位置と大きさを簡単に調整し、その後PDFとして保存することができます。上述の基本的な手順や応用例を参考に、実際の業務や学習に活用してください。