Home > Excel VBA | GraphControl > Excel グラフを画像(GIF)データとして指定フォルダに作成&保存する(Create graph's image to folder)

Excel グラフを画像(GIF)データとして指定フォルダに作成&保存する(Create graph's image to folder)

Posted by: WebMaster
2008年5月15日 13:18
Excel VBA | GraphControl

エクセルのシート上のグラフをGIF画像として保存するソースコードを紹介します。

This procedure will create GIF image of chart to selected folder.

下記のサンプルコードは、エクセルファイルのあるフォルダ内にシート上の一番若いグラフ(ChartObjects(1))を保存します。グラフ画像の名前は、グラフタイトルに設定しています。もしタイトルがない場合は、プログラムをイグジットして終了します。Chart クラスの "Export" メソッドを使用しています。他にも方法はあると思いますが、"Export" メソッドを使うのが一番手っ取り早い方法です。

The following sample code creates and saves ChartObjects (1) to a folder which is same path with current Excel file. The name of a graph image is set as a graph title. If no title, then program will exit. This code uses "Export" method of "Chart" Class.

GraphControl で使用しているコードです。

This source code is used in GraphControl.

''----------------------------------------------------------  
Dim Numchart&, FolderCount&
Dim Folder$

Private Sub Command_JPG_Click()
Dim iDate$, GraphName$, fPath$
If NumChart = 0 Then
 MsgBox "No chart on selected sheet", vbInformation
 Exit Sub
End If
If FolderCount = 0 Then
 MsgBox "There is no folder in current path" & vbCrLf & vbCrLf & _
 "Beforehand, Make Folder", vbInformation
 Exit Sub
End If

'On Error Resume Next
iDate = Date
Application.ScreenUpdating = False
If CheckBox4.Value = True Then
 Temp1 = 1: Temp2 = NumChart
Else
 Temp1 = ChartObject: Temp2 = ChartObject
End If
If Folder = "" Then ''---If folder isnot selected (もしフォルダが指定されてない場合)
 MsgBox "Select folder from Combo-box", vbInformation
 Exit Sub
End If
 ''---ThisWorkbook.Path はエクセルファイルがあるフォルダのパス
 fPath = ThisWorkbook.Path & "\" & Folder & "\"
 
For i = Temp1 To Temp2

ActiveSheet.ChartObjects(i).Activate

If (ActiveSheet.ChartObjects(i).Chart.HasTitle = False) Then
   GraphName = fPath & Combo_Books2.Value & "_" & i & ".gif"
 Else
   GraphName = fPath & ActiveChart.ChartTitle.Characters.Text & ".gif"
 End If

ActiveSheet.ChartObjects(i).Chart.Export Filename:=GraphName, Filtername:="GIF"

Next
End Sub

Comments:0

Amazon.co.jp ウィジェット

Home > Excel VBA | GraphControl > Excel グラフを画像(GIF)データとして指定フォルダに作成&保存する(Create graph's image to folder)

Return to page top