macros change images

[Guest]

I'm trying create a macro to turn a picture to a watermark but it gets stuck
at the shape function, callout (1) why is this and how to combat it?
Sub Macro4()
'
' Macro recorded 06/03/2005 by P Reynolds
'
With ActivePresentation.SlideShowWindow.View.Slide.Callout(1)

.Fill.Transparency = 0#
.PictureFormat.Brightness = 0.85
.PictureFormat.Contrast = 0.15
End With
End Sub

Phil

 

[Guest]

A callout is a type of shape, I believe. A slide doesn't have a collection
of callouts; it has a collection of Shapes, some of which might be Callouts.
Try applying your settings

ActivePresentation.SlideShowWindow.View.Slide.Shapes(1)

I can't test out your specific settings because I'm at home on my Mac
running PowerPoint 98, and it doesn't have the same transparency settings as
the newer versions. But working with the shape should work.

--David

David Marcovitz
Author of _PowerfulPowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/

 

[Steve Rindsberg]

I'm trying create a macro to turn a picture to a watermark but it gets stuck
at the shape function, callout (1) why is this and how to combat it?
Sub Macro4()
'
' Macro recorded 06/03/2005 by P Reynolds
'
With ActivePresentation.SlideShowWindow.View.Slide.Callout(1)

Assuming the name of the shape is Callout1:
With ActivePresntation.SlideShowWindow.View.Slide.Shapes("Callout1")

But if it's a callout and not an image, this won't work:

.PictureFormat.Brightness = 0.85
.PictureFormat.Contrast = 0.15

Only images have a .PictureFormat property. In fact, due to a nasty little bug,
running your code would probably make PPT 2002 go poof. It just disappears and
won't run again until you clear it from memory using Task Manager. Not pretty.