Exporting Charts as Vector graphics

[InAllenGassen]

Hi!

I'm searching for a way to export charts from excel as vector graphics, e.g. wmf files. I use this code, but it won't work:

Sub ChartPict_save()
Dim sFName As String
Dim Pict As Object
Dim ch
Dim i As Integer

i = 1
For Each Pict In ActiveSheet.ChartObjects
Set ch = Pict.Chart
sFName = ThisWorkbook.Path & Application.PathSeparator & "temp" & i & ".wmf"
ch.Export Filename:=sFName, FilterName:="WMF"
i = i + 1
Next
Set ch = Nothing
End Sub

The problems seems to be the wmf filter, cause when i change that to gif it works fine. I have a filter installed, called "Wmfimp32.flt" and use excel 2003 sp2.

thanks much

 

[jmckeone]

An excel add-in called ASAP Utilities has that capability. It is free for use. If you're looking for the code behind that capability I believe it can be had from the folks who make the add-in.

http://www.asap-utilities.com/download-asap-utilities.php

 

[InAllenGassen]

thanks much!