0

シート (チャート) の 1 つに複数のチャートがあり、6 つの特定のチャートのみをエクスポートしたいと考えています。チャートを選択してLayoutタブに移動するChart Nameと、チャート名を選択できると思われる何かが表示されます。チャートの 1 つの名前を「ChartA」に変更してみました。この単純な VBA コードを手伝ってください。

Sub SaveJPGTest()
Chart("ChartA").Export "Z:\specialChart.jpg"
End Sub
4

3 に答える 3

3

basePathjpgをExcelファイルと同じディレクトリに保存するように追加。JPGよりも画質が良く、ファイルサイズが小さいと思われるため、PNGとして保存しました。ただし、これが使用するのに最適なファイル形式であるかどうかはわかりません。

このコードは、シートchartsとグラフをChartAアクティブに設定し、アクティブなグラフを保存します。

Sub SaveAreaPowerJPGs()
  Dim basePath As String
  basePath = ThisWorkbook.Path & "\"
  ActiveWorkbook.Sheets("charts").Activate

  ActiveSheet.ChartObjects("ChartA").Activate
  ActiveChart.Export Filename:=basePath & "ChartA.jpg", Filtername:="PNG"
End Sub
于 2013-10-08T21:27:10.583 に答える
2

コピー元: http://windowssecrets.com/forums/showthread.php/129693-Export-charts-from-Excel-into-any-image-formatマイナーな適応。

Sub ChartToJPG()
Dim Chrt As Chart
Application.ScreenUpdating = False
ActiveSheet.ChartObjects("ChartA").Activate
ActiveChart.ChartArea.Copy
Set Chrt = Charts.Add
Chrt.Paste
Chrt.Export Filename:="C:\Users\Maudibe\Desktop\MyChart.jpg", Filtername:="JPG"
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

用途に合わせてパスを選択してください。

于 2013-10-08T00:31:40.917 に答える