TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

این یک مثال:

Sub ToggleVisibility(oShape As Shape)
    oShape.Visible = Not oShape.Visible
End Sub

Action setting مربوط به Shape را روی ماکروی ToggleVisibility، تنظیم کنید. تا رویداد کلیک روی Shape تنظیم شود.

برای تنظیم نام Shape ها هم از کلیدهای Alt+F10 در پنجره اصلی تنظیم و طراحی پاورپوینت استفاده کنید.

Sub PopUp(oShape As Shape)

    ActivePresentation.Slides(1).Shapes("Popup").Visible = _
        Not ActivePresentation.Slides(1).Shapes("Popup").Visible

End Sub

یک کد دیگر:

Sub DoSomethingTo(oSh as Shape)

   Dim oSl as Slide
   Dim oShTemp as Shape

   ' oSh.Parent returns a valid reference to the shape's host slide:  
   Set oSl = ActivePresentation.Slides(oSh.Parent.SlideIndex)

   ' and oSh.Name works:
   MsgBox oSh.Name

   ' So we use those two bits to get a reference 
   ' to the clicked shape like so
   Set oShTemp = oSl.Shapes(oSh.Name)
   With oShTemp
       .TextFrame.TextRange.Text = oSh.Name
       ' and whatever else you want to do with the shape
   End With

End Sub