Макрос не выполняет, то что записал

[valerij]

Сообщение от IgorGO

чем проблема? где она?

Игорь, надо на листе2, что бы слово "Бердянск", было как на листе1

[IgorGO]

написано
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 15.11.2010 (x200)
'
ActiveSheet.Shapes("Rectangle 15").Select
Range("A4").Select
End Sub
отметить "Rectangle 15", отметить "А4". это и происходит. абсолютно одинаково что на листе1, что на 2.

[valerij]

Сообщение от IgorGO

это и происходит.

Игорь, издеваешься?
Я в 1#, писал, как создавался рекодером, макрос.
Такое впечетление, что это работает с ячейкой, а не с автофигурой

[IgorGO]

я не знаю о чем ты мечтал, когда записывал макрос, я вижу что записано

[valerij]

Сообщение от IgorGO

я не знаю о чем ты мечтал, когда записывал макрос, я вижу что записано

Я не мечтал, а брал рекодер и делал....
Если так нельзя сделать, то как можно.
Так понял, ответ не получу.

[IgorGO]

и где оно, что ты делал? я должен догадаться? В макросе записано отметить фигуру, отметить ячейку он это и делает, хоть на первом листе хоть на втором.
я не присутствовал, когда ты что-то делал. я не посвящен в задумку, что ты хотел сделать.
повторю: в макросе написано отметить фигуру, отметить ячейку - он это делает.
какой ответ ты хочешь получить? процитируй, в котором из постов задан внятный вопрос. я не знаю о чем ты думаешь когда, пишешь, поэтому прочитать могу то, что написано, а не то о чем ты думал, когда писал.

[valerij]

Сообщение от IgorGO

и где оно, что ты делал?

Игорь....
На листе1, было как на листе2, слово "Бердянск" на фигуре, ушло в низ, почемуто, что бы это исправить, достаточно: "формат автофигуры - поля - автоматические(ставлю галку" и все ОК!
Все эти действия записываю рекодером и применяю к фигуре на Листе2, ноль.
У меня таких фигур с 10 -к на листе и 10 листов, править в ручную?

Ааа, понял, рекодер не пишет эти действия "формат автофигуры - поля - автоматические",
тупой рекодер

[valerij]

Два листа, постов!!!
Мне за пару минут, условие #1, решили:

Private Sub Test()
Dim iWorksheet As Worksheet, iShape As Shape
For Each iWorksheet In ThisWorkbook.Worksheets
    For Each iShape In iWorksheet.Shapes
        iShape.TextFrame.AutoMargins = True
    Next
Next
End Sub

[IgorGO]

если учесть, что только в #17 прозвучало приблизительно следующее:
"у меня по 10 фигур на 10 листах, что им всем вручную задать поля - автоматические"
до этого абсолютно всем было понятно, что тебе надо, но никто не знал как это сделать)))

[valerij]

Сообщение от IgorGO

если учесть, .. что им всем вручную задать поля - автоматические"....но никто не знал как это сделать)))

Странно, а так?

Правка выберите команду Перейти (или нажмите клавишу F5 или CTRL+G) , затем кликните кнопку Выделить, установите переключатель напротив объекты и нажмите кнопку OK. Теперь можете установить/снять галку сразу во всех выделенных фигурах.