From Excel get the dimensions of a shape in PowerPoint with VBA

Question

I'm trying to build a tool whereby users can click a button in Excel and get the height, width, top, left properties of a selected shape in PowerPoint (to enable them to size shapes in Excel more effectively).

Currently I don't seem to be able to reference the selected shape in PowerPoint despite having the following code:

Dim PowerPointApp As Object
Dim ActivePresentation As Object
Dim ActiveSlide As Object

Public Sub getDimensionsFromPowerPoint()

    'Create an Instance of PowerPoint
    On Error Resume Next

    'Is PowerPoint already opened?
    Set PowerPointApp = GetObject(Class:="PowerPoint.Application")

    'Clear the error between errors
    err.Clear

    'If PowerPoint is not already open then open PowerPoint
    If PowerPointApp Is Nothing Then Set PowerPointApp = CreateObject(Class:="PowerPoint.Application")

    'Handle if the PowerPoint Application is not found
    If err.Number = 429 Then
        MsgBox "PowerPoint could not be found, aborting."
        Exit Sub
    End If

    On Error GoTo 0

    'Optimize Code
    Application.ScreenUpdating = False

    'Create a New Presentation

    Set ActiveShape = PowerPointApp.ActivePresentation.ActiveWindow.Selection

    Debug.Print ActiveShape.width

End Sub

I have a feeling I'm not interacting with PowerPoint properly but cannot see how else it can be.

Try debug.Print typename(ActiveShape) to verify your assumption that you have got a shape. Where is ActiveShape defined in your code? — S Meaden
– S Meaden, Commented May 29, 2016 at 22:17
i don't know how to do it in powerpoint, but in excel it is like that : Dim Pic as Shape : Set Pic = Selection.Shaperange(1) — Patrick Lepelletier
– Patrick Lepelletier, Commented May 30, 2016 at 8:29

Steve Rindsberg · Accepted Answer · 2016-05-30 15:54:13Z

0

Instead of:

 Set ActiveShape = PowerPointApp.ActivePresentation.ActiveWindow.Selection

Use:

 Set ActiveShape = PowerPointApp.ActiveWindow.Selection.ShapeRange(1)

answered May 30, 2016 at 15:54

Steve Rindsberg

14.9k1 gold badge32 silver badges37 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

S Meaden · Accepted Answer · 2016-05-29 22:19:38Z

0

From this web page https://msdn.microsoft.com/en-us/library/office/ff745871.aspx

It looks like you need to use the ShapeRange method to get references to shapes.

I think ShapeRange supports For Each because (1) so you can loop through them.

(1) Evidence for support For Each is presence of hidden _NewEnum method.

answered May 29, 2016 at 22:19

S Meaden

8,3203 gold badges39 silver badges74 bronze badges

Collectives™ on Stack Overflow

From Excel get the dimensions of a shape in PowerPoint with VBA

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related