Solved

Record the position and size of the (only) shape on the current slide

Posted on 2012-12-21

Visual Basic Classic

1 solution

Medium Priority

313 Views

Last Modified: 2012-12-21

Below macro records the position and size of each shape in the active presentation.

How is the code to be re-written if I only would like to record the position and size of the (only) shape on the current slide?

Help is much appreciated. Thank you very much in advance.

Regards, Andreas

Dim oSl As Slide
    Dim oSh As Shape

    For Each oSl In ActivePresentation.Slides
        For Each oSh In oSl.Shapes
            With oSh
                .Tags.Add Name:="L", Value:=CStr(.Left)
                .Tags.Add Name:="T", Value:=CStr(.Top)
                .Tags.Add Name:="H", Value:=CStr(.Height)
                .Tags.Add Name:="W", Value:=CStr(.Width)
            End With
        Next
    Next

End Sub

Open in new window

Comment

Question by:AndreasHermle

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

2 Comments

LVL 5

Accepted Solution

by:LazyFolk

LazyFolk earned 2000 total points

ID: 387123792012-12-21

Test this...
It loop on all shapes in the current slide

Sub test()
    Dim oSh As Shape
    
    For Each oSh In ActivePresentation.Slides.Range(ActiveWindow.Selection.SlideRange.SlideNumber).Shapes
        With oSh
            .Tags.Add Name:="L", Value:=CStr(.Left)
            .Tags.Add Name:="T", Value:=CStr(.Top)
            .Tags.Add Name:="H", Value:=CStr(.Height)
            .Tags.Add Name:="W", Value:=CStr(.Width)
        End With
    Next
End Sub

Open in new window

Author Closing Comment

by:AndreasHermle

ID: 387124512012-12-21

Hi LazyFolk,

great this did the trick. Thank you very much for your great help.

Regards, Andreas

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Using Enums in VB6 and VBA

Article by: Martin

Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are. What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…

Intercepting Office Ribbon Control Events with VBA using "Repurposing" Commands

Article by: Jamie

I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.

Using Automation to Control Outlook from Access

Video by: TechMommy

Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…

Creating and Using an Access Class Module

Video by: TechMommy

Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…