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

[valerij]

Пишу м. рекодером, запускаю макрос, эфекта, нет, почему?
Должно быть как на листе1, слово "Бердянск", это - формат автофигуры - поля - автоматические(ставлю галку), в листе2, то же самое, но макрос нифига не делает

[Hugo121]

И гдеж это всё у Вас потерялось?

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 15.11.2010 (x200)
'

'
    ActiveSheet.Shapes("Rectangle 15").Select

        Selection.Characters.Text = "Бердянск"
    With Selection.Characters(Start:=1, Length:=8).Font
        .Name = "Arial Cyr"
        .FontStyle = "Полужирный"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Orientation = xlHorizontal
        .AutoSize = True
    End With

    Range("A4").Select
End Sub

[valerij]

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

И гдеж это всё у Вас потерялось?

Не наю, у меня записалось ведь, так, почему такая разница?

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 15.11.2010 (x200)
'

'
    ActiveSheet.Shapes("Rectangle 15").Select
    Range("A4").Select
End Sub

[valerij]

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

Sub Макрос1()

Hugo121!!
А почему, макрос, меняет размер автофигуры? Потом мне в ручную, править?

[Hugo121]

Ну значит я не понял, что Вам нужно... Я думал Вам .AutoSize = True нужно...

[gsg]

попробуйте изменить значение
AutoSize на False

[valerij]

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

попробуйте изменить значение
AutoSize на False

Пробовал, не катит, тут видимо, все не так просто....

[Hugo121]

Ну если автосайз не нужно - можно вообще его выкинуть.
А так - что в коде ТС написано, то и выполняется.

[valerij]

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

А так - что в коде ТС написано, то и выполняется.

Да в том, то и дело, что нет.
И профессура, молчит, хотя б сказали, что нить!!

[IgorGO]

Валера, все в полных непонятках, а что собственно хотим получить?
записанный в zxc.rar маккрос замечательно и одинаково работает на обоих листах.
что написано то и происходит, в чем проблема? где она?