> In article <491873ad$0$27209$ba620dc5[ at ]text.nova.planet.nl>, Vincent
> Verheul
> wrote:
>> Hi Steve,
>>
>> Thanks for your help and the 'Export' tip. Hopefully PowerPoint will get
>> an
>> update at some point in the future. In the meantime I'm looking into the
>> TransparentBlt function in library "Msimg32.dll" as a workaround.
>
> I'd be interested to hear what you come up with on that.
>
>> I save the PPT as GIF because the application creates HTML pages with
>> them.
>> Also included are mapped coordinates which create 'hot spots' in HTML.
>
> I wasn't questioning the choice of format, just the notion of saving it
> with a
> PPT extension, per your:
>
> Const FileName = "TestTransparency.ppt"
>
>
>
>>
>> Thx. Vincent
>>
>> "Steve Rindsberg" <abuse[ at ]localhost.com> wrote in message
>> news:VA.000045bd.18c78a69[ at ]localhost.com...
>> > As you point out, this is a PPT issue, not an Access/automation one.
>> > I can repro it here and have passed the bug on to someone at MS.
>> > Here's the version of your code I tested with (so as to involve only
>> > PPT):
>> >
>> > Sub TestTransparency2()
>> > Dim filename As String
>> > ' changed the save-as name to .GIF extension
>> > ' as PPT2007 is now fussier about these things
>> > ' why save a GIF as a PPT?
>> > filename = "c:\temp\TestTransparency.gif"
>> > ' skipped some code to set the PPT and Pres objects
>> > 'PPT.Visible = True
>> >
>> > With ActivePresentation.Slides(1)
>> > .FollowMasterBackground = False
>> > .Background.Fill.BackColor.RGB = RGB(255, 255, 255)
>> > .Background.Fill.Transparency = 1
>> >
>> > ' you can Export directly to the format you want,
>> > ' btw, which lets you spec the resolution
>> > ' rather than using Save As.
>> > ' Doesn't solve the current problem, alas.
>> > ' Like so:
>> > '.Export filename, "GIF", 800, 600
>> >
>> > End With
>> > Call ActivePresentation.SaveAs(filename, ppSaveAsGIF)
>> >
>> > End Sub
>> >
>> > In article <491807b7$0$27211$ba620dc5[ at ]text.nova.planet.nl>, Vincent
>> > Verheul
>> > wrote:
>> >> Hello,
>> >>
>> >> In PowerPoint 2003 I successfully use Visual Basic code to save a
>> >> Powerpoint
>> >> Slide into GIF format with a transparent background. This does not
>> >> seem
>> >> to
>> >> work anymore in PowerPoint 2007. I have selected the option "Save as
>> >> PowerPoint 97-2003".
>> >>
>> >> This is the code:
>> >>
>> >> Sub TestTransparency(PPT As PowerPoint.Application, Pres As
>> >> PowerPoint.Presentation)
>> >> Const FileName = "TestTransparency.ppt"
>> >> ' skipped some code to set the PPT and Pres objects
>> >> PPT.Visible = True
>> >> With Pres.Slides(1)
>> >> .FollowMasterBackground = False
>> >> .Background.Fill.BackColor.RGB = RGB(255, 255, 255)
>> >> .Background.Fill.Transparency = 1
>> >> End With
>> >> Call Pres.SaveAs(FileName, ppSaveAsGIF)
>> >> ' PowerPoint saves the GIF in a separate folder with the name of
>> >> the
>> >> selected slide
>> >> End Sub
>> >>
>> >> In fact I am running this out of an MsAccess application using the
>> >> PowerPoint library, but that should not make a difference.
>> >>
>> >> Also when doing this manually via the PowerPoint user interface the
>> >> saved
>> >> GIF file has no transparent background: In a slide use the right mouse
>> >> button and select Format Background ... then select Solid Fill, Hide
>> >> Background Graphics, (optionally select a color, I use white: RGB
>> >> 255,255,255) and set Transparency to 100%. Then Save As... Other
>> >> Formats...
>> >> GIF.
>> >>
>> >
>> > -----------------------------------------
>> > Steve Rindsberg, PPT MVP
>> > PPT FAQ: www.pptfaq.com
>> > PPTools: www.pptools.com
>> > ================================================
>> >
>> >
>>
>
> -----------------------------------------
> Steve Rindsberg, PPT MVP
> PPT FAQ: www.pptfaq.com
> PPTools: www.pptools.com
> ================================================
>
>