Этот код должен найти обычное / основное текстовое поле на листе и затем переместить его влево. Затем перейдите на следующий лист и сделайте то же самое. Делай до последнего листа.
Он работает (когда я перебираю его, используя F8), но затем на следующем листе говорится, что объект не поддерживает это свойство метода.
Я понятия не имею, почему это происходит.
Dim I As Integer
Dim txBox As Shape
Set txBox = ActiveSheet.Shapes("Text Box 1")
For I = 1 To Worksheets().Count
Worksheets(I).Activate
txBox.Select
**Selection.ShapeRange.IncrementLeft 586.5**
Next I
End Sub