Moin,
ich verzweifel grad, ich stolper immer wieder über die .selects :(
Also, der Rekorder hat mir dies rausgeworfen:
ActiveSheet.Shapes("logo_r").Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = False
End With
End Sub
Daraus habe ich zunächst mal das gefolgert:
ActiveSheet.Shapes("logo_r").PrintObject = False
Hat natürlich nicht funktioniert. Also hab ich recherchiert und zu einem ähnlichem Thema ("Shapes ohne Select beschriften") dies hier rausgefunden:
Dim objTb As Shape, strText As String
With ActiveSheet
Set objTb = .Shapes("E_3_m")
objTb.TextFrame.Characters.Text = "Mein Text"
End With

Daraus leite ich mit meinem beschränkten VBA Kentnissen ab:
Dim objTb As Shape
With ActiveSheet
Set objTb = .Shapes("logo_l")
objTb.PrintObject = False
End With
Nur leider ist es das wieder nicht :(
Wie krieg ich denn sonst das select weg?
Dank und Gruß,
Klaus M.vdT.
(ich hoffe ich war zumindest nah dran, sonst bin ich für heute total frustriert)