Poslech klíč Makra Module 3

'All these procedures run in Edit or Normal View, not SlideShow View

'Select one and only one shape and get the name of that shape
Sub GetShapeName()
    MsgBox ActiveWindow.Selection.ShapeRange.Name
End Sub

'Select one and only one shape and set the name of that shape
Sub SetShapeName()
    Dim shapeName As String

    shapeName = InputBox(prompt:="Type a name for the shape")
    ActiveWindow.Selection.ShapeRange.Name = shapeName
End Sub

'Get the namne of the current slide
Sub GetSlideName()
    MsgBox ActiveWindow.View.Slide.Name
End Sub

'Set the name of the current slide
Sub SetSlideName()
    Dim slideName As String

    slideName = InputBox(prompt:="Type a name for the slide")
    ActiveWindow.View.Slide.Name = slideName
End Sub