REsize image powerpoint 2007

  • Follow


Hi. I am not very good at ppt but can someone tell me if there is an
effect to re-size an image. What I would like to do is have a page
that shrinks the image to the top left corner and then displays text.
I know there are lots of special effects for images.

Desmnd.
0
Reply Desmond 11/16/2009 3:18:52 PM

If you mean start with an image of some sort, then zoom in to a part of it, 
see my thread here called "zoom in and move to a spot at the same time", 
started on 11/13.

The bottom line is yes, you can.  Select your object, then see "animations / 
custom animation / add effect / emphasis (and/or) motion paths".  Play 
around and have fun.  Note: use a hi-res image, so it'll still look good 
after you zoom in.  Also, there are less elaborate ways to approximate this 
effect than how I did it.

Steve

"Desmond" <otuatail@googlemail.com> wrote in message 
news:2dcbf036-9de2-45d2-a6d4-e07c831907c6@s31g2000yqs.googlegroups.com...
> Hi. I am not very good at ppt but can someone tell me if there is an
> effect to re-size an image. What I would like to do is have a page
> that shrinks the image to the top left corner and then displays text.
> I know there are lots of special effects for images.
>
> Desmnd. 


0
Reply Steve 11/16/2009 4:19:40 PM


On Nov 16, 4:19=A0pm, "Steve" <nom...@for.me> wrote:
> If you mean start with an image of some sort, then zoom in to a part of i=
t,
> see my thread here called "zoom in and move to a spot at the same time",
> started on 11/13.
>
> The bottom line is yes, you can. =A0Select your object, then see "animati=
ons /
> custom animation / add effect / emphasis (and/or) motion paths". =A0Play
> around and have fun. =A0Note: use a hi-res image, so it'll still look goo=
d
> after you zoom in. =A0Also, there are less elaborate ways to approximate =
this
> effect than how I did it.
>
> Steve
>
> "Desmond" <otuat...@googlemail.com> wrote in message
>
> news:2dcbf036-9de2-45d2-a6d4-e07c831907c6@s31g2000yqs.googlegroups.com...
>
>
>
> > Hi. I am not very good at ppt but can someone tell me if there is an
> > effect to re-size an image. What I would like to do is have a page
> > that shrinks the image to the top left corner and then displays text.
> > I know there are lots of special effects for images.
>
> > Desmnd.- Hide quoted text -
>
> - Show quoted text -

Sorry I cant find the effect I want. The only animations available are
Fade smoothly
Fade through black
cut
cut through back
Disolve
Wipe down
Wipe left

Can this be done in VB Script. I have used VBS before in Word and
Excel.
Maybe top, left, height and width properties.

Desmond.
0
Reply Desmond 11/17/2009 11:31:26 AM

Hi,
Select your image, go to custom animations, click on emphasis (yellow star),
go to grow/shrink, select smaller or put in the percentages in which you 
want to grow/shrink.

Click on Add Effect > Motions path > Draw Custom Path > Line
Now hold the left mouse key and drag a line from the middle of the image to 
the upper left corner (so that the image fits to it)
Go into the animation of this object and select with previous.

This works as well in 2003 as 2007 and it's done within 1 minute ;)

Take Care,

Martin

"Desmond" <otuatail@googlemail.com> schrieb im Newsbeitrag 
news:c1afd810-d304-49b9-8bb1-a31731ce9508@l2g2000yqd.googlegroups.com...
> On Nov 16, 4:19 pm, "Steve" <nom...@for.me> wrote:
>> If you mean start with an image of some sort, then zoom in to a part of 
>> it,
>> see my thread here called "zoom in and move to a spot at the same time",
>> started on 11/13.
>>
>> The bottom line is yes, you can.  Select your object, then see 
>> "animations /
>> custom animation / add effect / emphasis (and/or) motion paths".  Play
>> around and have fun.  Note: use a hi-res image, so it'll still look good
>> after you zoom in.  Also, there are less elaborate ways to approximate 
>> this
>> effect than how I did it.
>>
>> Steve
>>
>> "Desmond" <otuat...@googlemail.com> wrote in message
>>
>> news:2dcbf036-9de2-45d2-a6d4-e07c831907c6@s31g2000yqs.googlegroups.com...
>>
>>
>>
>> > Hi. I am not very good at ppt but can someone tell me if there is an
>> > effect to re-size an image. What I would like to do is have a page
>> > that shrinks the image to the top left corner and then displays text.
>> > I know there are lots of special effects for images.
>>
>> > Desmnd.- Hide quoted text -
>>
>> - Show quoted text -
>
> Sorry I cant find the effect I want. The only animations available are
> Fade smoothly
> Fade through black
> cut
> cut through back
> Disolve
> Wipe down
> Wipe left
>
> Can this be done in VB Script. I have used VBS before in Word and
> Excel.
> Maybe top, left, height and width properties.
>
> Desmond. 

0
Reply Martin 11/17/2009 1:34:07 PM

"Desmond" <otuatail@googlemail.com> wrote in message 
news:c1afd810-d304-49b9-8bb1-a31731ce9508@l2g2000yqd.googlegroups.com...
> - Show quoted text -

Sorry I cant find the effect I want. The only animations available are
Fade smoothly
Fade through black
cut
cut through back
Disolve
Wipe down
Wipe left

Can this be done in VB Script. I have used VBS before in Word and
Excel.
Maybe top, left, height and width properties.

Desmond.

</quoted text>

You are looking at transitions, which move you from slide-to-slide.

For Animations, click the Custom Animations button, select an object and 
click the Add Animation button.


-- 
Echo [MS PPT MVP] http://www.echosvoice.com
What's new in PPT 2007? http://www.echosvoice.com/2007.htm
Fixing PowerPoint Annoyances http://tinyurl.com/36grcd
PowerPoint 2007 Complete Makeover Kit http://tinyurl.com/32a7nx 

0
Reply Echo 11/17/2009 6:32:08 PM

On Nov 17, 6:32=A0pm, "Echo S" <msnewsgro...@echosvoiceUGHSPAM.com>
wrote:
> "Desmond" <otuat...@googlemail.com> wrote in message
>
> news:c1afd810-d304-49b9-8bb1-a31731ce9508@l2g2000yqd.googlegroups.com...
>
> > - Show quoted text -
>
> Sorry I cant find the effect I want. The only animations available are
> Fade smoothly
> Fade through black
> cut
> cut through back
> Disolve
> Wipe down
> Wipe left
>
> Can this be done in VB Script. I have used VBS before in Word and
> Excel.
> Maybe top, left, height and width properties.
>
> Desmond.
>
> </quoted text>
>
> You are looking at transitions, which move you from slide-to-slide.
>
> For Animations, click the Custom Animations button, select an object and
> click the Add Animation button.
>
> --
> Echo [MS PPT MVP]http://www.echosvoice.com
> What's new in PPT 2007?http://www.echosvoice.com/2007.htm
> Fixing PowerPoint Annoyanceshttp://tinyurl.com/36grcd
> PowerPoint 2007 Complete Makeover Kithttp://tinyurl.com/32a7nx

No this is not right. First it defaults to 150% and can't be changed.
Secondly it shrinks pre-portionaly. What I want is in VB terms
left position 10 pixels top 10pixels. Width 300px  height 300px.
NOW
shrink height and with so that the image is anchored to the top
corner. The image will shrink up and right with the top corner fixed.
This should be done in VB script. Also when I used Office 97. There
was a macro recorder that allowed you to make changes and see the code
that would be needed to do this.

Desmond.
0
Reply Desmond 11/17/2009 8:43:20 PM

On Nov 17, 8:43=A0pm, Desmond <otuat...@googlemail.com> wrote:
> On Nov 17, 6:32=A0pm, "Echo S" <msnewsgro...@echosvoiceUGHSPAM.com>
> wrote:
>
>
>
>
>
> > "Desmond" <otuat...@googlemail.com> wrote in message
>
> >news:c1afd810-d304-49b9-8bb1-a31731ce9508@l2g2000yqd.googlegroups.com...
>
> > > - Show quoted text -
>
> > Sorry I cant find the effect I want. The only animations available are
> > Fade smoothly
> > Fade through black
> > cut
> > cut through back
> > Disolve
> > Wipe down
> > Wipe left
>
> > Can this be done in VB Script. I have used VBS before in Word and
> > Excel.
> > Maybe top, left, height and width properties.
>
> > Desmond.
>
> > </quoted text>
>
> > You are looking at transitions, which move you from slide-to-slide.
>
> > For Animations, click the Custom Animations button, select an object an=
d
> > click the Add Animation button.
>
> > --
> > Echo [MS PPT MVP]http://www.echosvoice.com
> > What's new in PPT 2007?http://www.echosvoice.com/2007.htm
> > Fixing PowerPoint Annoyanceshttp://tinyurl.com/36grcd
> > PowerPoint 2007 Complete Makeover Kithttp://tinyurl.com/32a7nx
>
> No this is not right. First it defaults to 150% and can't be changed.
> Secondly it shrinks pre-portionaly. What I want is in VB terms
> left position 10 pixels top 10pixels. Width 300px =A0height 300px.
> NOW
> shrink height and with so that the image is anchored to the top
> corner. The image will shrink up and right with the top corner fixed.
> This should be done in VB script. Also when I used Office 97. There
> was a macro recorder that allowed you to make changes and see the code
> that would be needed to do this.
>
> Desmond.- Hide quoted text -
>
> - Show quoted text -

What i Need is a VB script person to allow re-sizing in code. I have
found out how to get the developer tab.

The following cannot be saved in macro-free presentations
To save a file with these features, click No to return to the save as
dialog box, and then choose a macro-enabled file type in the file type
list

What file type AND what file type list?

0
Reply Desmond 11/17/2009 9:06:20 PM

On Nov 17, 8:43=A0pm, Desmond <otuat...@googlemail.com> wrote:
> On Nov 17, 6:32=A0pm, "Echo S" <msnewsgro...@echosvoiceUGHSPAM.com>
> wrote:
>
>
>
>
>
> > "Desmond" <otuat...@googlemail.com> wrote in message
>
> >news:c1afd810-d304-49b9-8bb1-a31731ce9508@l2g2000yqd.googlegroups.com...
>
> > > - Show quoted text -
>
> > Sorry I cant find the effect I want. The only animations available are
> > Fade smoothly
> > Fade through black
> > cut
> > cut through back
> > Disolve
> > Wipe down
> > Wipe left
>
> > Can this be done in VB Script. I have used VBS before in Word and
> > Excel.
> > Maybe top, left, height and width properties.
>
> > Desmond.
>
> > </quoted text>
>
> > You are looking at transitions, which move you from slide-to-slide.
>
> > For Animations, click the Custom Animations button, select an object an=
d
> > click the Add Animation button.
>
> > --
> > Echo [MS PPT MVP]http://www.echosvoice.com
> > What's new in PPT 2007?http://www.echosvoice.com/2007.htm
> > Fixing PowerPoint Annoyanceshttp://tinyurl.com/36grcd
> > PowerPoint 2007 Complete Makeover Kithttp://tinyurl.com/32a7nx
>
> No this is not right. First it defaults to 150% and can't be changed.
> Secondly it shrinks pre-portionaly. What I want is in VB terms
> left position 10 pixels top 10pixels. Width 300px =A0height 300px.
> NOW
> shrink height and with so that the image is anchored to the top
> corner. The image will shrink up and right with the top corner fixed.
> This should be done in VB script. Also when I used Office 97. There
> was a macro recorder that allowed you to make changes and see the code
> that would be needed to do this.
>
> Desmond.- Hide quoted text -
>
> - Show quoted text -

Sub move()
Picture1.jpg.Height =3D 100
End Sub

There is a 1 day time zone between me and the rest of the group. So I
will have to do this very slowly.
0
Reply Desmond 11/17/2009 9:13:47 PM

> > No this is not right. First it defaults to 150% and can't be changed.
> > Secondly it shrinks pre-portionaly. What I want is in VB terms
> > left position 10 pixels top 10pixels. Width 300px  height 300px.

PowerPoint doesn't work in pixels; it uses points (72/inch).

Dim oSh as Shape
Set oSh = ActivePresentation.Slides(x).Shapes("shapename")
' substitute the correct slide number and shape name above

With oSh
  .Left = 10
  .Top = 10
  .Width = 300
  .Height = 300
End With

If you want to change the size but leave the top right corner fixed,

Dim sngRight as Single
sngRight = oSh.Left + oSh.Width
'Change the height/width
' then
oSh.Left = sngRight - osh.Width

> The following cannot be saved in macro-free presentations
> To save a file with these features, click No to return to the save as
> dialog box, and then choose a macro-enabled file type in the file type
> list
> 
> What file type AND what file type list?

In the Save As dialog box, beneath the File name text box, there's a "Save as 
type" list box.  Use it to choose "PowerPoint Macro-Enabled Presentation 
(*.PPTM)"


==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/


0
Reply Steve 11/18/2009 5:22:49 PM

On Nov 18, 5:22=A0pm, Steve Rindsberg <ab...@localhost.com> wrote:
> > > No this is not right. First it defaults to 150% and can't be changed.
> > > Secondly it shrinks pre-portionaly. What I want is in VB terms
> > > left position 10 pixels top 10pixels. Width 300px =A0height 300px.
>
> PowerPoint doesn't work in pixels; it uses points (72/inch).
>
> Dim oSh as Shape
> Set oSh =3D ActivePresentation.Slides(x).Shapes("shapename")
> ' substitute the correct slide number and shape name above
>
> With oSh
> =A0 .Left =3D 10
> =A0 .Top =3D 10
> =A0 .Width =3D 300
> =A0 .Height =3D 300
> End With
>
> If you want to change the size but leave the top right corner fixed,
>
> Dim sngRight as Single
> sngRight =3D oSh.Left + oSh.Width
> 'Change the height/width
> ' then
> oSh.Left =3D sngRight - osh.Width
>
> > The following cannot be saved in macro-free presentations
> > To save a file with these features, click No to return to the save as
> > dialog box, and then choose a macro-enabled file type in the file type
> > list
>
> > What file type AND what file type list?
>
> In the Save As dialog box, beneath the File name text box, there's a "Sav=
e as
> type" list box. =A0Use it to choose "PowerPoint Macro-Enabled Presentatio=
n
> (*.PPTM)"
>
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D
> PPT Frequently Asked Questionshttp://www.pptfaq.com/
>
> PPTools add-ins for PowerPointhttp://www.pptools.com/

The problem I am having is I have put a picture on a slide. If the
picture is pic123.jpg. Then I assume that I would say something like
pic123.jpg.height =3D x;
This is an obcect orientated problem. Do I have to put a picture
control on the slide and set the picture to it.

I have done years of programming in visual basic and I would use a
picture control. Can you send me simple instructions on how to do this
from getting a picture onto the form. I have managed to save the file
as a pptm. set powerpoint options to Enable all macros.


Desmond
0
Reply Desmond 11/18/2009 5:45:26 PM

In article <a14ba3fb-79b4-488a-894e-
399b8561c69d@k17g2000yqh.googlegroups.com>, Desmond wrote:
> On Nov 18, 5:22 pm, Steve Rindsberg <ab...@localhost.com> wrote:
> > > > No this is not right. First it defaults to 150% and can't be changed.
> > > > Secondly it shrinks pre-portionaly. What I want is in VB terms
> > > > left position 10 pixels top 10pixels. Width 300px  height 300px.
> >
> > PowerPoint doesn't work in pixels; it uses points (72/inch).
> >
> > Dim oSh as Shape
> > Set oSh = ActivePresentation.Slides(x).Shapes("shapename")
> > ' substitute the correct slide number and shape name above
> >
> > With oSh
> >   .Left = 10
> >   .Top = 10
> >   .Width = 300
> >   .Height = 300
> > End With
> >
> > If you want to change the size but leave the top right corner fixed,
> >
> > Dim sngRight as Single
> > sngRight = oSh.Left + oSh.Width
> > 'Change the height/width
> > ' then
> > oSh.Left = sngRight - osh.Width
> >
> > > The following cannot be saved in macro-free presentations
> > > To save a file with these features, click No to return to the save as
> > > dialog box, and then choose a macro-enabled file type in the file type
> > > list
> >
> > > What file type AND what file type list?
> >
> > In the Save As dialog box, beneath the File name text box, there's a "Sav
> e as
> > type" list box.  Use it to choose "PowerPoint Macro-Enabled Presentatio
> n
> > (*.PPTM)"
> >
> > ========================
> ======
> > PPT Frequently Asked Questionshttp://www.pptfaq.com/
> >
> > PPTools add-ins for PowerPointhttp://www.pptools.com/
> 
> The problem I am having is I have put a picture on a slide. If the
> picture is pic123.jpg. Then I assume that I would say something like
> pic123.jpg.height = x;
> This is an obcect orientated problem. Do I have to put a picture
> control on the slide and set the picture to it.

No, you can manipulate the shape that represents the picture directly.
Use Insert, Picture, From File to insert it.

Look again at the code fragment I typed earlier:

Dim oSh as Shape
' Create a variable to hold a reference 
' to a shape object

Set oSh = ActivePresentation.Slides(x).Shapes("shapename")
' create the reference to a specific shape
' You'd want to change shapename to whatever the name of your
' picture shape is.  The filename isn't relevant.

To see the shape name assigned by PPT by selecting it then running this in 
the immediate window of the IDE:

? ActiveWindow.Selection.ShapeRange(1).Name

> I have done years of programming in visual basic and I would use a
> picture control. Can you send me simple instructions on how to do this
> from getting a picture onto the form.

You said above that you had a picture on a SLIDE, not a form.
Which is it?



==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/


0
Reply Steve 11/18/2009 6:44:21 PM

On Nov 18, 6:44=A0pm, Steve Rindsberg <ab...@localhost.com> wrote:
> In article <a14ba3fb-79b4-488a-894e-
>
>
>
>
>
> 399b8561c...@k17g2000yqh.googlegroups.com>, Desmond wrote:
> > On Nov 18, 5:22 pm, Steve Rindsberg <ab...@localhost.com> wrote:
> > > > > No this is not right. First it defaults to 150% and can't be chan=
ged.
> > > > > Secondly it shrinks pre-portionaly. What I want is in VB terms
> > > > > left position 10 pixels top 10pixels. Width 300px =A0height 300px=
..
>
> > > PowerPoint doesn't work in pixels; it uses points (72/inch).
>
> > > Dim oSh as Shape
> > > Set oSh =3D ActivePresentation.Slides(x).Shapes("shapename")
> > > ' substitute the correct slide number and shape name above
>
> > > With oSh
> > > =A0 .Left =3D 10
> > > =A0 .Top =3D 10
> > > =A0 .Width =3D 300
> > > =A0 .Height =3D 300
> > > End With
>
> > > If you want to change the size but leave the top right corner fixed,
>
> > > Dim sngRight as Single
> > > sngRight =3D oSh.Left + oSh.Width
> > > 'Change the height/width
> > > ' then
> > > oSh.Left =3D sngRight - osh.Width
>
> > > > The following cannot be saved in macro-free presentations
> > > > To save a file with these features, click No to return to the save =
as
> > > > dialog box, and then choose a macro-enabled file type in the file t=
ype
> > > > list
>
> > > > What file type AND what file type list?
>
> > > In the Save As dialog box, beneath the File name text box, there's a =
"Sav
> > e as
> > > type" list box. =A0Use it to choose "PowerPoint Macro-Enabled Present=
atio
> > n
> > > (*.PPTM)"
>
> > > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D
> > =3D=3D=3D=3D=3D=3D
> > > PPT Frequently Asked Questionshttp://www.pptfaq.com/
>
> > > PPTools add-ins for PowerPointhttp://www.pptools.com/
>
> > The problem I am having is I have put a picture on a slide. If the
> > picture is pic123.jpg. Then I assume that I would say something like
> > pic123.jpg.height =3D x;
> > This is an obcect orientated problem. Do I have to put a picture
> > control on the slide and set the picture to it.
>
> No, you can manipulate the shape that represents the picture directly.
> Use Insert, Picture, From File to insert it.
>
> Look again at the code fragment I typed earlier:
>
> Dim oSh as Shape
> ' Create a variable to hold a reference
> ' to a shape object
>
> Set oSh =3D ActivePresentation.Slides(x).Shapes("shapename")
> ' create the reference to a specific shape
> ' You'd want to change shapename to whatever the name of your
> ' picture shape is. =A0The filename isn't relevant.
>
> To see the shape name assigned by PPT by selecting it then running this i=
n
> the immediate window of the IDE:
>
> ? ActiveWindow.Selection.ShapeRange(1).Name
>
> > I have done years of programming in visual basic and I would use a
> > picture control. Can you send me simple instructions on how to do this
> > from getting a picture onto the form.
>
> You said above that you had a picture on a SLIDE, not a form.
> Which is it?
>
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D
> PPT Frequently Asked Questionshttp://www.pptfaq.com/
>
> PPTools add-ins for PowerPointhttp://www.pptools.com/- Hide quoted text -
>
> - Show quoted text -

No this does not work. I put a picture into slide 8 and there is an
error in your code
Set oSh =3D ActivePresentation.Slides(8).Shapes("WaterWine.jpg")
ERROR: Item WaterWine.jpg not found in the shapes collection.

That is correct it is a picture it ios a .jpg.  it is not a Shape
althought it is a rectangular type of picture.

I have a picture on slide 8. WaterWine.jpg. I need code to change it's
height and width. It is not a shape. Shapes are stars, circles and
squigly lines.

0
Reply Des 11/20/2009 12:19:34 PM

On Nov 18, 6:44=A0pm, Steve Rindsberg <ab...@localhost.com> wrote:
> In article <a14ba3fb-79b4-488a-894e-
>
>
>
>
>
> 399b8561c...@k17g2000yqh.googlegroups.com>, Desmond wrote:
> > On Nov 18, 5:22 pm, Steve Rindsberg <ab...@localhost.com> wrote:
> > > > > No this is not right. First it defaults to 150% and can't be chan=
ged.
> > > > > Secondly it shrinks pre-portionaly. What I want is in VB terms
> > > > > left position 10 pixels top 10pixels. Width 300px =A0height 300px=
..
>
> > > PowerPoint doesn't work in pixels; it uses points (72/inch).
>
> > > Dim oSh as Shape
> > > Set oSh =3D ActivePresentation.Slides(x).Shapes("shapename")
> > > ' substitute the correct slide number and shape name above
>
> > > With oSh
> > > =A0 .Left =3D 10
> > > =A0 .Top =3D 10
> > > =A0 .Width =3D 300
> > > =A0 .Height =3D 300
> > > End With
>
> > > If you want to change the size but leave the top right corner fixed,
>
> > > Dim sngRight as Single
> > > sngRight =3D oSh.Left + oSh.Width
> > > 'Change the height/width
> > > ' then
> > > oSh.Left =3D sngRight - osh.Width
>
> > > > The following cannot be saved in macro-free presentations
> > > > To save a file with these features, click No to return to the save =
as
> > > > dialog box, and then choose a macro-enabled file type in the file t=
ype
> > > > list
>
> > > > What file type AND what file type list?
>
> > > In the Save As dialog box, beneath the File name text box, there's a =
"Sav
> > e as
> > > type" list box. =A0Use it to choose "PowerPoint Macro-Enabled Present=
atio
> > n
> > > (*.PPTM)"
>
> > > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D
> > =3D=3D=3D=3D=3D=3D
> > > PPT Frequently Asked Questionshttp://www.pptfaq.com/
>
> > > PPTools add-ins for PowerPointhttp://www.pptools.com/
>
> > The problem I am having is I have put a picture on a slide. If the
> > picture is pic123.jpg. Then I assume that I would say something like
> > pic123.jpg.height =3D x;
> > This is an obcect orientated problem. Do I have to put a picture
> > control on the slide and set the picture to it.
>
> No, you can manipulate the shape that represents the picture directly.
> Use Insert, Picture, From File to insert it.
>
> Look again at the code fragment I typed earlier:
>
> Dim oSh as Shape
> ' Create a variable to hold a reference
> ' to a shape object
>
> Set oSh =3D ActivePresentation.Slides(x).Shapes("shapename")
> ' create the reference to a specific shape
> ' You'd want to change shapename to whatever the name of your
> ' picture shape is. =A0The filename isn't relevant.
>
> To see the shape name assigned by PPT by selecting it then running this i=
n
> the immediate window of the IDE:
>
> ? ActiveWindow.Selection.ShapeRange(1).Name
>
> > I have done years of programming in visual basic and I would use a
> > picture control. Can you send me simple instructions on how to do this
> > from getting a picture onto the form.
>
> You said above that you had a picture on a SLIDE, not a form.
> Which is it?
>
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D
> PPT Frequently Asked Questionshttp://www.pptfaq.com/
>
> PPTools add-ins for PowerPointhttp://www.pptools.com/- Hide quoted text -
>
> - Show quoted text -

Don't understand any of this
' You'd want to change shapename to whatever the name of your
' picture shape is.  The filename isn't relevant.

The file name is WaterWine.jpg. What the Shape name is god knows What
is a shape. I did not put a shape on the slide I put a genuine .JPG
(Joint Photographic Experts Group) on the slide.What is a shape what
is a shape name.

0
Reply Des 11/20/2009 12:25:13 PM

On Nov 20, 12:25=A0pm, Des <desotuat...@aol.com> wrote:
> On Nov 18, 6:44=A0pm, Steve Rindsberg <ab...@localhost.com> wrote:
>
>
>
>
>
> > In article <a14ba3fb-79b4-488a-894e-
>
> > 399b8561c...@k17g2000yqh.googlegroups.com>, Desmond wrote:
> > > On Nov 18, 5:22 pm, Steve Rindsberg <ab...@localhost.com> wrote:
> > > > > > No this is not right. First it defaults to 150% and can't be ch=
anged.
> > > > > > Secondly it shrinks pre-portionaly. What I want is in VB terms
> > > > > > left position 10 pixels top 10pixels. Width 300px =A0height 300=
px.
>
> > > > PowerPoint doesn't work in pixels; it uses points (72/inch).
>
> > > > Dim oSh as Shape
> > > > Set oSh =3D ActivePresentation.Slides(x).Shapes("shapename")
> > > > ' substitute the correct slide number and shape name above
>
> > > > With oSh
> > > > =A0 .Left =3D 10
> > > > =A0 .Top =3D 10
> > > > =A0 .Width =3D 300
> > > > =A0 .Height =3D 300
> > > > End With
>
> > > > If you want to change the size but leave the top right corner fixed=
,
>
> > > > Dim sngRight as Single
> > > > sngRight =3D oSh.Left + oSh.Width
> > > > 'Change the height/width
> > > > ' then
> > > > oSh.Left =3D sngRight - osh.Width
>
> > > > > The following cannot be saved in macro-free presentations
> > > > > To save a file with these features, click No to return to the sav=
e as
> > > > > dialog box, and then choose a macro-enabled file type in the file=
 type
> > > > > list
>
> > > > > What file type AND what file type list?
>
> > > > In the Save As dialog box, beneath the File name text box, there's =
a "Sav
> > > e as
> > > > type" list box. =A0Use it to choose "PowerPoint Macro-Enabled Prese=
ntatio
> > > n
> > > > (*.PPTM)"
>
> > > > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D
> > > =3D=3D=3D=3D=3D=3D
> > > > PPT Frequently Asked Questionshttp://www.pptfaq.com/
>
> > > > PPTools add-ins for PowerPointhttp://www.pptools.com/
>
> > > The problem I am having is I have put a picture on a slide. If the
> > > picture is pic123.jpg. Then I assume that I would say something like
> > > pic123.jpg.height =3D x;
> > > This is an obcect orientated problem. Do I have to put a picture
> > > control on the slide and set the picture to it.
>
> > No, you can manipulate the shape that represents the picture directly.
> > Use Insert, Picture, From File to insert it.
>
> > Look again at the code fragment I typed earlier:
>
> > Dim oSh as Shape
> > ' Create a variable to hold a reference
> > ' to a shape object
>
> > Set oSh =3D ActivePresentation.Slides(x).Shapes("shapename")
> > ' create the reference to a specific shape
> > ' You'd want to change shapename to whatever the name of your
> > ' picture shape is. =A0The filename isn't relevant.
>
> > To see the shape name assigned by PPT by selecting it then running this=
 in
> > the immediate window of the IDE:
>
> > ? ActiveWindow.Selection.ShapeRange(1).Name
>
> > > I have done years of programming in visual basic and I would use a
> > > picture control. Can you send me simple instructions on how to do thi=
s
> > > from getting a picture onto the form.
>
> > You said above that you had a picture on a SLIDE, not a form.
> > Which is it?
>
> > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D
> > PPT Frequently Asked Questionshttp://www.pptfaq.com/
>
> > PPTools add-ins for PowerPointhttp://www.pptools.com/-Hide quoted text =
-
>
> > - Show quoted text -
>
> Don't understand any of this
> ' You'd want to change shapename to whatever the name of your
> ' picture shape is. =A0The filename isn't relevant.
>
> The file name is WaterWine.jpg. What the Shape name is god knows What
> is a shape. I did not put a shape on the slide I put a genuine .JPG
> (Joint Photographic Experts Group) on the slide.What is a shape what
> is a shape name.- Hide quoted text -
>
> - Show quoted text -

This is strange

sngRight =3D oSh.Left + oSh.Width
'Change the height/width
' then
oSh.Left =3D sngRight - oSh.Width

Dont you mean

oSh.Width =3D oSh.Width * .5
oSh.Height =3D oSh.Height * .5

Surley that is what I do to change the size of this mysterious shape
that I don't know what it is as I am a beginner to this
And that goes for the mysterious collection object that I don't know
anything about.

Does this shape object have to act as a container for the picture. If
so should I not have to add a shape to the slide(8) and set the
picture to it.? What part of I do not know what this shape object is
does nobody here understand.

0
Reply Des 11/20/2009 12:46:20 PM

On Nov 18, 6:44=A0pm, Steve Rindsberg <ab...@localhost.com> wrote:
> In article <a14ba3fb-79b4-488a-894e-
>
>
>
>
>
> 399b8561c...@k17g2000yqh.googlegroups.com>, Desmond wrote:
> > On Nov 18, 5:22 pm, Steve Rindsberg <ab...@localhost.com> wrote:
> > > > > No this is not right. First it defaults to 150% and can't be chan=
ged.
> > > > > Secondly it shrinks pre-portionaly. What I want is in VB terms
> > > > > left position 10 pixels top 10pixels. Width 300px =A0height 300px=
..
>
> > > PowerPoint doesn't work in pixels; it uses points (72/inch).
>
> > > Dim oSh as Shape
> > > Set oSh =3D ActivePresentation.Slides(x).Shapes("shapename")
> > > ' substitute the correct slide number and shape name above
>
> > > With oSh
> > > =A0 .Left =3D 10
> > > =A0 .Top =3D 10
> > > =A0 .Width =3D 300
> > > =A0 .Height =3D 300
> > > End With
>
> > > If you want to change the size but leave the top right corner fixed,
>
> > > Dim sngRight as Single
> > > sngRight =3D oSh.Left + oSh.Width
> > > 'Change the height/width
> > > ' then
> > > oSh.Left =3D sngRight - osh.Width
>
> > > > The following cannot be saved in macro-free presentations
> > > > To save a file with these features, click No to return to the save =
as
> > > > dialog box, and then choose a macro-enabled file type in the file t=
ype
> > > > list
>
> > > > What file type AND what file type list?
>
> > > In the Save As dialog box, beneath the File name text box, there's a =
"Sav
> > e as
> > > type" list box. =A0Use it to choose "PowerPoint Macro-Enabled Present=
atio
> > n
> > > (*.PPTM)"
>
> > > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D
> > =3D=3D=3D=3D=3D=3D
> > > PPT Frequently Asked Questionshttp://www.pptfaq.com/
>
> > > PPTools add-ins for PowerPointhttp://www.pptools.com/
>
> > The problem I am having is I have put a picture on a slide. If the
> > picture is pic123.jpg. Then I assume that I would say something like
> > pic123.jpg.height =3D x;
> > This is an obcect orientated problem. Do I have to put a picture
> > control on the slide and set the picture to it.
>
> No, you can manipulate the shape that represents the picture directly.
> Use Insert, Picture, From File to insert it.
>
> Look again at the code fragment I typed earlier:
>
> Dim oSh as Shape
> ' Create a variable to hold a reference
> ' to a shape object
>
> Set oSh =3D ActivePresentation.Slides(x).Shapes("shapename")
> ' create the reference to a specific shape
> ' You'd want to change shapename to whatever the name of your
> ' picture shape is. =A0The filename isn't relevant.
>
> To see the shape name assigned by PPT by selecting it then running this i=
n
> the immediate window of the IDE:
>
> ? ActiveWindow.Selection.ShapeRange(1).Name
>
> > I have done years of programming in visual basic and I would use a
> > picture control. Can you send me simple instructions on how to do this
> > from getting a picture onto the form.
>
> You said above that you had a picture on a SLIDE, not a form.
> Which is it?
>
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D
> PPT Frequently Asked Questionshttp://www.pptfaq.com/
>
> PPTools add-ins for PowerPointhttp://www.pptools.com/- Hide quoted text -
>
> - Show quoted text -

Print ActiveWindow.Selection.ShapeRange(1).Name
ERROR: Method not valid without suitable object
0
Reply Des 11/20/2009 1:23:23 PM

On 11/20/09 7:46 AM, in article
185b8a6f-40df-451e-a120-38ad8b672320@m16g2000yqc.googlegroups.com, "Des"
<desotuatail@aol.com> wrote:

> On Nov 20, 12:25�pm, Des <desotuat...@aol.com> wrote:
>> On Nov 18, 6:44�pm, Steve Rindsberg <ab...@localhost.com> wrote:
>> 
>> 
>> 
>> 
>> 
>>> In article <a14ba3fb-79b4-488a-894e-
>> 
>>> 399b8561c...@k17g2000yqh.googlegroups.com>, Desmond wrote:
>>>> On Nov 18, 5:22 pm, Steve Rindsberg <ab...@localhost.com> wrote:
>>>>>>> No this is not right. First it defaults to 150% and can't be changed.
>>>>>>> Secondly it shrinks pre-portionaly. What I want is in VB terms
>>>>>>> left position 10 pixels top 10pixels. Width 300px �height 300px.
>> 
>>>>> PowerPoint doesn't work in pixels; it uses points (72/inch).
>> 
>>>>> Dim oSh as Shape
>>>>> Set oSh = ActivePresentation.Slides(x).Shapes("shapename")
>>>>> ' substitute the correct slide number and shape name above
>> 
>>>>> With oSh
>>>>> � .Left = 10
>>>>> � .Top = 10
>>>>> � .Width = 300
>>>>> � .Height = 300
>>>>> End With
>> 
>>>>> If you want to change the size but leave the top right corner fixed,
>> 
>>>>> Dim sngRight as Single
>>>>> sngRight = oSh.Left + oSh.Width
>>>>> 'Change the height/width
>>>>> ' then
>>>>> oSh.Left = sngRight - osh.Width
>> 
>>>>>> The following cannot be saved in macro-free presentations
>>>>>> To save a file with these features, click No to return to the save as
>>>>>> dialog box, and then choose a macro-enabled file type in the file type
>>>>>> list
>> 
>>>>>> What file type AND what file type list?
>> 
>>>>> In the Save As dialog box, beneath the File name text box, there's a "Sav
>>>> e as
>>>>> type" list box. �Use it to choose "PowerPoint Macro-Enabled Presentatio
>>>> n
>>>>> (*.PPTM)"
>> 
>>>>> ========================
>>>> ======
>>>>> PPT Frequently Asked Questionshttp://www.pptfaq.com/
>> 
>>>>> PPTools add-ins for PowerPointhttp://www.pptools.com/
>> 
>>>> The problem I am having is I have put a picture on a slide. If the
>>>> picture is pic123.jpg. Then I assume that I would say something like
>>>> pic123.jpg.height = x;
>>>> This is an obcect orientated problem. Do I have to put a picture
>>>> control on the slide and set the picture to it.
>> 
>>> No, you can manipulate the shape that represents the picture directly.
>>> Use Insert, Picture, From File to insert it.
>> 
>>> Look again at the code fragment I typed earlier:
>> 
>>> Dim oSh as Shape
>>> ' Create a variable to hold a reference
>>> ' to a shape object
>> 
>>> Set oSh = ActivePresentation.Slides(x).Shapes("shapename")
>>> ' create the reference to a specific shape
>>> ' You'd want to change shapename to whatever the name of your
>>> ' picture shape is. �The filename isn't relevant.
>> 
>>> To see the shape name assigned by PPT by selecting it then running this in
>>> the immediate window of the IDE:
>> 
>>> ? ActiveWindow.Selection.ShapeRange(1).Name
>> 
>>>> I have done years of programming in visual basic and I would use a
>>>> picture control. Can you send me simple instructions on how to do this
>>>> from getting a picture onto the form.
>> 
>>> You said above that you had a picture on a SLIDE, not a form.
>>> Which is it?
>> 
>>> ==============================
>>> PPT Frequently Asked Questionshttp://www.pptfaq.com/
>> 
>>> PPTools add-ins for PowerPointhttp://www.pptools.com/-Hide quoted text -
>> 
>>> - Show quoted text -
>> 
>> Don't understand any of this
>> ' You'd want to change shapename to whatever the name of your
>> ' picture shape is. �The filename isn't relevant.
>> 
>> The file name is WaterWine.jpg. What the Shape name is god knows What
>> is a shape. I did not put a shape on the slide I put a genuine .JPG
>> (Joint Photographic Experts Group) on the slide.What is a shape what
>> is a shape name.- Hide quoted text -
>> 
>> - Show quoted text -
> 
> This is strange
> 
> sngRight = oSh.Left + oSh.Width
> 'Change the height/width
> ' then
> oSh.Left = sngRight - oSh.Width
> 
> Dont you mean
> 
> oSh.Width = oSh.Width * .5
> oSh.Height = oSh.Height * .5
> 
> Surley that is what I do to change the size of this mysterious shape
> that I don't know what it is as I am a beginner to this
> And that goes for the mysterious collection object that I don't know
> anything about.
> 
> Does this shape object have to act as a container for the picture. If
> so should I not have to add a shape to the slide(8) and set the
> picture to it.? What part of I do not know what this shape object is
> does nobody here understand.
> 

OK, after responding, I just found the rest of this thread. I didn't realize
that you had been banging this around with Steve. Here are some basics, but
you  might want to look into a reference about all of this to get some basic
background (see my book and/or the Programming PowerPoint section of
http://www.pptfaq.com/).

Each slide consists of a Shapes collection. All the stuff (pictures, lines,
text boxes, circles, etc.) are part of the Shapes collection. You access the
Shapes collection of a particular slide, e.g. slide 8, with:

ActivePresentation.Slides(8).Shapes

If you want to access a specific shape, you can do it by number or name. For
example, if you want to access the 4th shape on the 8th slide, you need:

ActivePresentation.Slides(8).Shapes(4)

The problem is that you have no easy way of telling which shape is which.
The other problem is that the shape numbers can change (e.g., delete shape 3
and all the shapes with higher numbers move down so the old number 4 is now
number 3). That is why it tends to be better to use shape names.

Shape names are names that PowerPoint uses for the shapes. They have nothing
to do with the file names from where a picture comes. By default, PowerPoint
assigns a name to a shape when it gets inserted onto a slide (it usually
looks something like "AutoShape 2" or "Picture 5"). So, if you know the name
of the picture is Picture 5, you can change the above line to:

ActivePresentation.Slides(8).Shapes("Picture 5")

But you won't easily know what the name of the picture is. That is why you
probably want to change the name. In my earlier post, I suggested using the
code on my site in Example 8.7. Now, you can change the name of that picture
to whatever you want. Change it My Mother, and your code should be:

ActivePresentation.Slides(8).Shapes("My Mother")

That would be the pointer to the shape/picture that you want to manipulate.
Steve had suggested putting this into a variable so your code doesn't fill
up with references to

ActivePresentation.Slides(8).Shapes("My Mother")

Instead, just make a variable that points to the shape:

Set oSh = ActivePresentation.Slides(8).Shapes("My Mother")

Now, in your macro, whenever you want to refer to the picture, just use oSh
instead.

So, now that we have a nice shorthand for the picture, you can adjust the
properties of the picture, such as its Top, Left, Width, and Height
properties.

oSh.Top = 0

Moves the picture to the top of the slide.

oSh.Width = 50

makes the picture 50 pixels wide (and probably auto-adjusts the height,
depending on the value of another property that I can't remember off the top
of my head).

Something like:

oSh.Width = oSh.Width * .5

should cut the width of the picture in half (and possibly the height).

This should be enough to allow you to play with various settings to adjust
the location and size of your picture. Once you have the macro written,
assign it to a button, run the presentation in Slide Show view and click on
the button to watch your picture change. You might want another macro that
puts the picture back the way it was to start, also.

--David

-- 
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland


0
Reply David 11/20/2009 2:19:02 PM

In article <4bf87c0c-095f-42e6-8636-
0bd6b1fd9ff5@l13g2000yqb.googlegroups.com>, Des wrote:
> On Nov 18, 6:44 pm, Steve Rindsberg <ab...@localhost.com> wrote:
> > In article <a14ba3fb-79b4-488a-894e-
> >
> >
> >
> >
> >
> > 399b8561c...@k17g2000yqh.googlegroups.com>, Desmond wrote:
> > > On Nov 18, 5:22 pm, Steve Rindsberg <ab...@localhost.com> wrote:
> > > > > > No this is not right. First it defaults to 150% and can't be chan
> ged.
> > > > > > Secondly it shrinks pre-portionaly. What I want is in VB terms
> > > > > > left position 10 pixels top 10pixels. Width 300px  height 300px
> ..
> >
> > > > PowerPoint doesn't work in pixels; it uses points (72/inch).
> >
> > > > Dim oSh as Shape
> > > > Set oSh = ActivePresentation.Slides(x).Shapes("shapename")
> > > > ' substitute the correct slide number and shape name above
> >
> > > > With oSh
> > > >   .Left = 10
> > > >   .Top = 10
> > > >   .Width = 300
> > > >   .Height = 300
> > > > End With
> >
> > > > If you want to change the size but leave the top right corner fixed,
> >
> > > > Dim sngRight as Single
> > > > sngRight = oSh.Left + oSh.Width
> > > > 'Change the height/width
> > > > ' then
> > > > oSh.Left = sngRight - osh.Width
> >
> > > > > The following cannot be saved in macro-free presentations
> > > > > To save a file with these features, click No to return to the save 
> as
> > > > > dialog box, and then choose a macro-enabled file type in the file t
> ype
> > > > > list
> >
> > > > > What file type AND what file type list?
> >
> > > > In the Save As dialog box, beneath the File name text box, there's a 
> "Sav
> > > e as
> > > > type" list box.  Use it to choose "PowerPoint Macro-Enabled Present
> atio
> > > n
> > > > (*.PPTM)"
> >
> > > > =======================
> =
> > > ======
> > > > PPT Frequently Asked Questionshttp://www.pptfaq.com/
> >
> > > > PPTools add-ins for PowerPointhttp://www.pptools.com/
> >
> > > The problem I am having is I have put a picture on a slide. If the
> > > picture is pic123.jpg. Then I assume that I would say something like
> > > pic123.jpg.height = x;
> > > This is an obcect orientated problem. Do I have to put a picture
> > > control on the slide and set the picture to it.
> >
> > No, you can manipulate the shape that represents the picture directly.
> > Use Insert, Picture, From File to insert it.
> >
> > Look again at the code fragment I typed earlier:
> >
> > Dim oSh as Shape
> > ' Create a variable to hold a reference
> > ' to a shape object
> >
> > Set oSh = ActivePresentation.Slides(x).Shapes("shapename")
> > ' create the reference to a specific shape
> > ' You'd want to change shapename to whatever the name of your
> > ' picture shape is.  The filename isn't relevant.
> >
> > To see the shape name assigned by PPT by selecting it then running this i
> n
> > the immediate window of the IDE:
> >
> > ? ActiveWindow.Selection.ShapeRange(1).Name
> >
> > > I have done years of programming in visual basic and I would use a
> > > picture control. Can you send me simple instructions on how to do this
> > > from getting a picture onto the form.
> >
> > You said above that you had a picture on a SLIDE, not a form.
> > Which is it?
> >
> > ========================
> ======
> > PPT Frequently Asked Questionshttp://www.pptfaq.com/
> >
> > PPTools add-ins for PowerPointhttp://www.pptools.com/- Hide quoted text -
> >
> > - Show quoted text -
> 
> Don't understand any of this
> ' You'd want to change shapename to whatever the name of your
> ' picture shape is.  The filename isn't relevant.
> 
> The file name is WaterWine.jpg. 

Which, as I just wrote and you just quoted back, is NOT RELEVANT.

> What the Shape name is god knows What
> is a shape. I did not put a shape on the slide I put a genuine .JPG
> (Joint Photographic Experts Group) on the slide.What is a shape what
> is a shape name.

If you want to work with PPT, you need to learn something about the object 
model.  Everything on a PPT slide is a shape.  Each shape has a name that's 
assigned by PPT when it's created, and that you can change if you wish (using 
VBA).  I explained above how you can find out what name PPT has assigned to 
the shape.

For the code example to work, you MUST supply the shape name, not the name of 
the file that the picture came from.




==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/


0
Reply Steve 11/20/2009 3:46:14 PM

In article <1524e95c-694b-4ea0-a273-
3c4ace11d86d@u7g2000yqm.googlegroups.com>, Des wrote:
> On Nov 18, 6:44 pm, Steve Rindsberg <ab...@localhost.com> wrote:
> > In article <a14ba3fb-79b4-488a-894e-
> >
> >
> >
> >
> >
> > 399b8561c...@k17g2000yqh.googlegroups.com>, Desmond wrote:
> > > On Nov 18, 5:22 pm, Steve Rindsberg <ab...@localhost.com> wrote:
> > > > > > No this is not right. First it defaults to 150% and can't be chan
> ged.
> > > > > > Secondly it shrinks pre-portionaly. What I want is in VB terms
> > > > > > left position 10 pixels top 10pixels. Width 300px  height 300px
> ..
> >
> > > > PowerPoint doesn't work in pixels; it uses points (72/inch).
> >
> > > > Dim oSh as Shape
> > > > Set oSh = ActivePresentation.Slides(x).Shapes("shapename")
> > > > ' substitute the correct slide number and shape name above
> >
> > > > With oSh
> > > >   .Left = 10
> > > >   .Top = 10
> > > >   .Width = 300
> > > >   .Height = 300
> > > > End With
> >
> > > > If you want to change the size but leave the top right corner fixed,
> >
> > > > Dim sngRight as Single
> > > > sngRight = oSh.Left + oSh.Width
> > > > 'Change the height/width
> > > > ' then
> > > > oSh.Left = sngRight - osh.Width
> >
> > > > > The following cannot be saved in macro-free presentations
> > > > > To save a file with these features, click No to return to the save 
> as
> > > > > dialog box, and then choose a macro-enabled file type in the file t
> ype
> > > > > list
> >
> > > > > What file type AND what file type list?
> >
> > > > In the Save As dialog box, beneath the File name text box, there's a 
> "Sav
> > > e as
> > > > type" list box.  Use it to choose "PowerPoint Macro-Enabled Present
> atio
> > > n
> > > > (*.PPTM)"
> >
> > > > =======================
> =
> > > ======
> > > > PPT Frequently Asked Questionshttp://www.pptfaq.com/
> >
> > > > PPTools add-ins for PowerPointhttp://www.pptools.com/
> >
> > > The problem I am having is I have put a picture on a slide. If the
> > > picture is pic123.jpg. Then I assume that I would say something like
> > > pic123.jpg.height = x;
> > > This is an obcect orientated problem. Do I have to put a picture
> > > control on the slide and set the picture to it.
> >
> > No, you can manipulate the shape that represents the picture directly.
> > Use Insert, Picture, From File to insert it.
> >
> > Look again at the code fragment I typed earlier:
> >
> > Dim oSh as Shape
> > ' Create a variable to hold a reference
> > ' to a shape object
> >
> > Set oSh = ActivePresentation.Slides(x).Shapes("shapename")
> > ' create the reference to a specific shape
> > ' You'd want to change shapename to whatever the name of your
> > ' picture shape is.  The filename isn't relevant.
> >
> > To see the shape name assigned by PPT by selecting it then running this i
> n
> > the immediate window of the IDE:
> >
> > ? ActiveWindow.Selection.ShapeRange(1).Name
> >
> > > I have done years of programming in visual basic and I would use a
> > > picture control. Can you send me simple instructions on how to do this
> > > from getting a picture onto the form.
> >
> > You said above that you had a picture on a SLIDE, not a form.
> > Which is it?
> >
> > ========================
> ======
> > PPT Frequently Asked Questionshttp://www.pptfaq.com/
> >
> > PPTools add-ins for PowerPointhttp://www.pptools.com/- Hide quoted text -
> >
> > - Show quoted text -
> 
> Print ActiveWindow.Selection.ShapeRange(1).Name
> ERROR: Method not valid without suitable object


As I wrote above, you have to SELECT the shape (your picture) first.



==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/


0
Reply Steve 11/20/2009 3:46:15 PM

17 Replies
318 Views

(page loaded in 0.339 seconds)

Similiar Articles:































7/30/2012 4:37:52 PM


Reply: