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: REsize image powerpoint 2007 - microsoft.public.powerpoint ...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... How do I resize shape in powerpoint (resizing collapses the shape ...grouping "shapes" to pictures in word 2007 - microsoft ... How do I resize shape in powerpoint (resizing collapses the shape ..... shapes" to pictures in word 2007 ... Macro for resizing excel chart to match powerpoint destination ...REsize image powerpoint 2007 - microsoft.public.powerpoint ... Macro for resizing excel chart to match powerpoint destination ... REsize image powerpoint 2007 - microsoft ... Re-sizing pictures to fill slide? - microsoft.public.powerpoint ...I have a presentation of pictures in PP 2007 that I've inserted, one to each slide. They all have a border round them. I can't see a way of automati... Objects copied when resizing/moving multiple objects - microsoft ...lines move in Visio chart when image is copied to Word 2007 ... REsize image powerpoint 2007 - microsoft.public.powerpoint ... Objects copied when resizing/moving multiple ... Resize Iframe - microsoft.public.crmREsize image powerpoint 2007 - microsoft.public.powerpoint ... REsize image powerpoint 2007 - microsoft.public.powerpoint ... ... can force the IFRAME to the width of the ... Change all PowerPoint images to grayscale? - microsoft.public ...Change all PowerPoint images to grayscale? - microsoft.public ... change slide direction (right to left) in powerpoint - microsoft ... REsize image powerpoint 2007 ... ON 2007 resizing column widths - microsoft.public.onenote ...ON 2007 resizing column widths - microsoft.public.onenote ... REsize image powerpoint 2007 - microsoft.public.powerpoint ... I have used VBS before in Word and Excel. How to copy an image in a Power Point presentation - microsoft ...VBA - Copy and Paste Excel Table - microsoft.public.powerpoint ... How to copy and paste an Excel Table (obviously from an open Excel ... REsize image powerpoint 2007 ... Resizing picture frame/picture problems - microsoft.public ...REsize image powerpoint 2007 - microsoft.public.powerpoint ... Resizing picture frame/picture problems - microsoft.public ... REsize image powerpoint 2007 - microsoft ... VBA - Copy and Paste Excel Table - microsoft.public.powerpoint ...How to copy and paste an Excel Table (obviously from an open Excel ... REsize image powerpoint 2007 Desmond 17 151 Pop up resizing issues - 97 to 2007 - microsoft.public.access ...REsize image powerpoint 2007 - microsoft.public.powerpoint ... Pop up resizing issues - 97 to 2007 - microsoft.public.access ... make inserted images in word pop up in a ... PPT Images too big when using Insert as Printout - microsoft ...REsize image powerpoint 2007 - microsoft.public.powerpoint ... PPT Images too big when using Insert as Printout - microsoft ... I know that I can just resize each image ... how much can you shrink a big picture without loosing the picture ...powerpoint 2007 file too large to xmit. - microsoft.public ..... use something like irfanview to resize them ... PPT Images too big when using Insert as Printout ... Resize object by HxW using pixels - microsoft.public.excel.misc ...REsize image powerpoint 2007 - microsoft.public.powerpoint ... Resize object by HxW using pixels - microsoft.public.excel.misc ... REsize image powerpoint 2007 - microsoft ... Resizing Task Pane - microsoft.public.word.docmanagement ...... resizing - microsoft.public.word.docmanagement How to display HTML in Custom Task Pane - microsoft.public.word ... How to display HTML ... REsize image powerpoint 2007 ... Photo Resize - microsoft.public.windows.live.mail.desktop ...How do I resize a document to place it in a Visio flowchart ... REsize image powerpoint 2007 - microsoft.public.powerpoint ... Do I have to put a picture ... PowerPoint 2007 Printing issues - microsoft.public.powerpoint ...REsize image powerpoint 2007 - microsoft.public.powerpoint ... Select ... Problems With Custom Animation in PowerPoint | eHow.com Print this article ... PPT 2007 Master - How to keep logo on top? - microsoft.public ...Change all PowerPoint images to grayscale? - microsoft.public ... Hi, I have a PowerPoint 2007 ... Grayscale but if I save ... REsize image powerpoint 2007 - microsoft ... Editing layers of pictures in PPT 2007 - microsoft.public ...Editing pictures in Visio - microsoft.public.visio Editing layers of pictures in PPT 2007 - microsoft.public ... Moving and Resizing Pictures and Text Boxes in PowerPoint ... Resize the Picture on the PowerPoint 2007 Slide - Resize Pictures ...Resize pictures in PowerPoint 2007 to increase or decrease them in visual size. How to Resize Pictures in PowerPoint | eHow.comAfter inserting an image into... How to Make PPT Stop Resizing My Text. Microsoft PowerPoint 2007 is a presentation program that is bundled with Microsoft Office 2007. PowerPoint 2007 Resizing Images - YouTubeUploaded by UENVideo on Mar 30, 2009 No description available. Category: Education Tags: PowerPoint 2007 Resizing Images License: Standard YouTube License ... REsize image powerpoint 2007 PowerPointHi. 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 i How To Resize And Center Pictures In Powerpoint 2007Find out How To Resize and Center Pictures using a Macro in Powerpoint 2007. PowerPoint 2007 - Editing Images - Ask Us/Get HelpNote: The image editing capabilities in PowerPoint are very basic. You can use it to resize, crop, and group images, but on a very simple level . Another program such ... REsize image powerpoint 2007 - MS Office forums. More than 400,000 ...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 ... Moving and Resizing Pictures and Text Boxes in PowerPoint 2007 ...All graphic objects can be easily moved and / or resized in PowerPoint 2007. How to Automatically Size Pictures in Powerpoint | eHow.comOpen PowerPoint 2007 or a later version. Select "Insert" in the top left menu. ... wmf, .emf, .eps extensions will not compress with automatic PowerPoint picture resizing. How do u resize a slide on powerpoint 2007? - Yahoo! AnswersI need to know how to resize a slide on powerpoint so that when ... how do u change the slide size on powerpoint 2007? ... To compress the size of a picture, simply ... 7/30/2012 4:37:52 PM
|