|
▼Kein さん:
>グラフはワークシートの埋め込みグラフですね ? BitMap での出力は出来ません
>でしたが、Gif か Jpeg なら出来ます。
>アクティブシート上のグラフオブジェクトを、全て C:\tempフォルダーへ
>jpeg画像として出力するコードは
>
>Sub MyCharts_Exp()
> Dim Ch As ChartObject
> Dim i As Integer
> Const SvF As String = "C:\temp\ChDrow"
>
> With ActiveSheet
> If .ChartObjects.Count = 0 Then Exit Sub
> For Each Ch In .ChartObjects
> i = i + 1
> Ch.Chart.Export SvF & i & ".jpg", "Jpeg"
> Next
> End With
>End Sub
Keinさん
回答ありがとうございます
ビットマップでは出力できないんですかぁ〜TT
でも画像ファイルで出力出来る事で前に進めるので
さっそく試してみます
ありがとうございました!!
|
|