|
Hinweis: Die meisten Anfragen beziehen sich auf Excel.
Weder aus einem Code, noch aus deinem Beitrag ist ersichtlich ob du von Word, Excel, Powerpoint oder sonstwas redest.
Wäre schon toll wenn du das mit angeben würdest. >:|
Option Explicit
Sub Form_benennen()
Dim objShape As Word.Shape
Dim obj As Object
Dim Wert As String
For Each obj In Selection.ShapeRange
If TypeOf obj Is Word.Shape Then
Set objShape = obj
Wert = InputBox("Gib einen Namen ein:", , objShape.Name)
If Wert <> "" Then
objShape.Name = Wert
objShape.Visible = True
End If
End If
Next
End Sub
PS: Das erklärt hoffentlich für den ein oder anderen regelmäßigen Leser hier, warum ich bei Range z.B. Excel.Range schreibe; oder wie in diesem Fall Word.Range.
(ist eine alte Angewohnheit aus meiner Zeit, in der ich viel anwendungsübergreifend programmierte habe)
|