Aligning an attachment in PPT

[SteveBIS]

Hi everyone

From part of an Excel VBA codebase, I'm failing to automate alignment of just one shape in a PPT presentation.
This seems to be because Align is for ShapeRange rather than for Shape.

In code below, VBA identifies vPic as the active shape ; that's why the SendToBack command works.
But it fails at Alignment, and I cannot generalize alignment to all shapes in the slide.

Is there a way to align just the active shape ?

Sub test()
Dim aP As PowerPoint.Presentation
Dim vPic As PowerPoint.Shape

Set vPic = aP.Slides(1).Shapes.AddPicture(Filename:="c:\temp\screenshot.png")
vPic.Align msoSendToBack
vPic.msoAlignLefts, False ' ?
vPic.msoAlignBottoms, False ' ?

End Sub

' As I can't seem to align just the new attachment (and not other shapes already in the slide) I am presently forced to hard-code the alignment by the following inaccurate method :

' Set vPic = aP.Slides(1).Shapes.AddPicture(Filename:="c:\temp\screenshot.png", LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=200, Height:=300)

 

[Domenic]

To align the left sides of all shapes in the slide, try...

aP.Slides(1).Shapes.Range.Align msoAlignLefts, msoFalse

Hope this helps!

 

[SteveBIS]

That aligns not one, but all shapes. I want to align only the image newly attached.

 

[Domenic]

Can you please clarify?

 

[SteveBIS]

In short, if I have a shape in a slide ("In_Situ") and import another ("New") how can I align just the New shape ?

I'm not interested in aligning both shapes in a slide ; In_Situ is where I'd like it.

 

[Domenic]

Still unclear... align the new shape to what?

 

[SteveBIS]

Sorry, Domenic : my poor terminology.

I wish to center only the new attachment, horizontally and vertically.

 

[Domenic]

Do you mean center horizontally and vertically with respect to the slide?

 

[SteveBIS]

Yes, I'd the attachment centered H and V to the slide itself.

 

[Domenic]

Assuming that you're running the code from Excel, and using early binding, as per your original post, try to adopt the following code...

[COLOR=darkblue]Option[/COLOR] [COLOR=darkblue]Explicit[/COLOR]

[COLOR=darkblue]Sub[/COLOR] test()

    [COLOR=darkblue]Dim[/COLOR] ppApp [COLOR=darkblue]As[/COLOR] PowerPoint.Application
    [COLOR=darkblue]Dim[/COLOR] ppPres [COLOR=darkblue]As[/COLOR] PowerPoint.Presentation
    [COLOR=darkblue]Dim[/COLOR] ppShape [COLOR=darkblue]As[/COLOR] PowerPoint.Shape
    
    [COLOR=darkblue]Set[/COLOR] ppApp = [COLOR=darkblue]New[/COLOR] PowerPoint.Application
    [COLOR=darkblue]Set[/COLOR] ppPres = ppApp.ActivePresentation
    
    [COLOR=darkblue]With[/COLOR] ppPres.Slides(1)
        [COLOR=darkblue]Set[/COLOR] ppShape = .Shapes.AddPicture(Filename:="c:\temp\screenshot.png", LinkToFile:=msoFalse, _
            SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=200, Height:=300)
        [COLOR=darkblue]With[/COLOR] .Shapes.Range(ppShape.Name)
            .Align msoAlignCenters, msoTrue
            .Align msoAlignMiddles, msoTrue
        [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
    
    [COLOR=darkblue]Set[/COLOR] ppApp = [COLOR=darkblue]Nothing[/COLOR]
    [COLOR=darkblue]Set[/COLOR] ppPres = [COLOR=darkblue]Nothing[/COLOR]
    [COLOR=darkblue]Set[/COLOR] ppShape = [COLOR=darkblue]Nothing[/COLOR]
    
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

Hope this helps!