Well, I'm still a newbie, about 6 months into trying to program art projects.
I manually step through exporting a GIF for Web, studying the options and checkboxes, and then I go to the VBA and attempt to duplicate it.
I have attempted using ExportEx with StructExportOptions and StructPaletteOptions, but am still having trouble with the transparency when I run it through VBA.
From the screenshot (hopefully big enough), when exported manually, I get a transparent background like the top part of the screenshot, but through VBA I get the bottom part of the screen with no transparency.
Another thing I am having trouble with is the ExportFilter object. I only get 4 Methods, but I have seen countless forums with people using the Methods I list below.
Dim Filter As ExportFilter With Filter .ShowDialog .Interlaced = False .Transparency = 1 .InvertMask = False .Finish End With
This is my code with a College Logo in my cdrSelection
Dim opt As New StructExportOptions Dim pal As New StructPaletteOptions Dim Filter As ExportFilter opt.AntiAliasingType = cdrNoAntiAliasing opt.UseColorProfile = True opt.MaintainAspect = True opt.ImageType = cdrPalettedImage opt.Transparent = True opt.UseColorProfile = True opt.ResolutionX = 200 opt.ResolutionY = 200 pal.PaletteType = cdrPaletteOptimized pal.NumColors = 256 pal.DitherType = cdrDitherNone Set Filter = ActiveDocument.ExportEx("C:\Test1.gif", cdrGIF, cdrSelection, opt, pal) Dim Filter As ExportFilter With Filter .Interlaced = False .Finish End With