In their most recent webinar, Skyport Systems explores ways to isolate and protect critical databases to keep the core of your company safe from harm.
Solved
Record the position and size of the (only) shape on the current slide
Posted on 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
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
[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
2 Comments
Test this...
It loop on all shapes in the current slide
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
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.
There is also a companion Debug Toolbar that looks like the followin…
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…
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…
Suggested Courses
Course of the Month12 days, 19 hours left to enroll
650 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.