Solved

PowerPoint Macros - referring to the current shape during a presentation

Posted on 2001-06-19
13
497 Views
Last Modified: 2012-05-04
While running a PPT slide (PPT 97), I wish to be able to pick one of several shapes and change its properties (colour, size, position etc...). I do not wish to re-invent the same macro for each of 20 shapes, I want to be able to refer to teh "current shape" in a similar fashion to referring to the "current slide", as shown below...

Sub ShapeMacro()
'
' Macro recorded 19/06/2001 by John Mayfield
'
    Dim MyShape As Shape
   
    Dim Show As SlideShowWindow
    Dim ThisSlide As Integer
   
'*** Now Initialise the objects
Set Show = ActivePresentation.SlideShowWindow
ThisSlide = Show.View.CurrentShowPosition
Set MyShape = ActivePresentation.Slides(ThisSlide).Shapes(****This is where I want the help****)
    With MyShape
        .Left = 510#
    End With
       
'*** Set up to go
        Show.View.GotoSlide ThisSlide

End Sub


Normally one would use the line
Set MyShape = ActivePre ~~~~ s(ThisSlide).Shapes(2)
or
Set MyShape = ActivePre ~~~~ s(ThisSlide).Shapes("MyName")

I would have expected to be able to use
Set MyShape = ActivePr ~~~~ s(ThisSlide).Shapes(ThisShape)
but no dice...

Any suggestions
0
Comment
Question by:JohnMayfield
  • 6
  • 3
  • 3
  • +1
13 Comments
 
LVL 4

Expert Comment

by:wkhays
ID: 6208882

Use the Selection     od...Try something like:

With ActiveWindow.Selection.ShapeRange
   .Fill.ForeColor.RGB = RGB(255, 0, 0)
   Blah.blah.blah
End With

Best wishes,
WKHays
0
 

Author Comment

by:JohnMayfield
ID: 6209001
Sorry WKHays,
  doesn't work.
It apparently still doesn't acknowledge the fact that ai have just clicked on Shape number 15.
0
 
LVL 13

Expert Comment

by:cri
ID: 6209140
One way _could_ be the use of the ActionSettings. As starting point take this macro I made for another question. It primes all _textboxes_ containing text. Must finish now, perhaps this is of help to you or another expert


With ActivePresentation.Slides(1) '<< Adapt or make additional loop
  For Each myShape In .Shapes
    With myShape
      If .TextFrame.HasText = True Then
        With .ActionSettings(ppMouseClick)
         .Action = ppActionRunMacro
         .Run = "PlaceHolder" 'Shape is passed as argument by PPT
        End With
      End If
    End With
  Next myShape
End With
MsgBox "All textbox FRAMES are primed !"
End Sub

Sub PlaceHolder(myClickedShape As Shape)
 MsgBox myClickedShape.Name & " contains " & myClickedShape.TextFrame.TextRange.Text
End Sub
0
Best Practices: Disaster Recovery Testing

Besides backup, any IT division should have a disaster recovery plan. You will find a few tips below relating to the development of such a plan and to what issues one should pay special attention in the course of backup planning.

 
LVL 13

Expert Comment

by:cri
ID: 6209337
Doh... did not paste the whole thing....

Option Explicit 'to prevent typos

Sub PrimeTextboxFrameActionSettings()
'Attention: Clicking _text_ of textframe has no effect (yet) as it
 '          has its own action setting !

Dim myShape As Shape

0
 
LVL 13

Accepted Solution

by:
cri earned 100 total points
ID: 6209363
Option Explicit 'to prevent typos

Sub PrimeTextboxFrameActionSettings()
'Attention: Clicking _text_ of textframe has no effect (yet) as it
 '          has its own action setting !

Dim myShape As Shape

With ActivePresentation.Slides(1) '<< Adapt or make additional loop
 For Each myShape In .Shapes
   With myShape.ActionSettings(ppMouseClick)
     .Action = ppActionRunMacro
     .Run = "PlaceHolder" 'Shape is passed as argument by PPT
   End With
 Next myShape
End With
MsgBox "All textbox FRAMES are primed !"
End Sub

Sub PlaceHolder(myClickedShape As Shape)
  With myClickedShape
    MsgBox "You clicked " & .Name
    .Left = 321
  End With
End Sub

0
 

Expert Comment

by:amp072397
ID: 6242891
JohnMayfield: Please provide feedback.

amp
Community Support Moderator
Experts Exchange
0
 

Author Comment

by:JohnMayfield
ID: 6243317
cri:-

I am unsure as yet about your solution. I will try to understand what it is doing, then see if it works.

amp:-

Is this sufficient - I assume you are wanting some activity....

John M(:{)
0
 

Expert Comment

by:amp072397
ID: 6243504
ubet, John. Thanks. I like to see at least something from the Asker once a week or so, and especially if an Expert has placed a comment.
0
 
LVL 13

Expert Comment

by:cri
ID: 6284004
And ?
0
 
LVL 13

Expert Comment

by:cri
ID: 6328330
Upgrading to answer.  JohnMayfield, if you do not agree, feel free to reject it.
0
 

Expert Comment

by:amp072397
ID: 6338143
Thirty days without response from Asker.
Force-awarded to cri.
amp
Community Support Moderator
Experts Exchange
amp@experts-exchange.com
0
 
LVL 13

Expert Comment

by:cri
ID: 6354019
amp, thAnk you.
0
 

Author Comment

by:JohnMayfield
ID: 6354265
Unfortunately cri's comment does not do what I wanted it to do even though I tried for some considerable time. I have no problem with the points moving - that is not the purpose of hte excersize. I still can't find out which shape has just been chosen without go9ing through all the shapes on the sheet.
0

Featured Post

ScreenConnect 6.0 Free Trial

Want empowering updates? You're in the right place! Discover new features in ScreenConnect 6.0, based on partner feedback, to keep you business operating smoothly and optimally (the way it should be). Explore all of the extras and enhancements for yourself!

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Excel Error per WinZip Add-In 9 72
Excel 2013 Power Query 1 54
Excel 2016 Not Responding Issues 6 62
How send appointment to certain Outlook calendar? 22 35
Entering a date in Microsoft Access can be tricky. A typo can cause month and day to be shuffled, entering the day only causes an error, as does entering, say, day 31 in June. This article shows how an inputmask supported by code can help the user a…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
This video walks the viewer through the process of creating Hyperlinks for the web and other documents. Select the "Insert" tab: Click "Hyperlink":  Type "http://" followed by a web address to reference a website or navigate to a document to ref…
The viewer will learn how to simulate a series of sales calls dependent on a single skill level and learn how to simulate a series of sales calls dependent on two skill levels. Simulating Independent Sales Calls: Enter .75 into cell C2 – “skill leve…

831 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question