Kode ini harus menemukan kotak teks biasa / dasar pada lembar kerja dan kemudian memindahkannya ke kiri. Lalu buka lembar berikutnya dan lakukan hal yang sama. Lakukan sampai lembar terakhir.
Ini berfungsi (seperti yang saya lakukan melalui siklus menggunakan F8), tetapi kemudian lembar berikutnya dikatakan objek tidak mendukung properti metode ini .
Saya tidak tahu mengapa ini terjadi.
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