Куда девается надпись?

[alex77755]

Создаю программно в цикле несколько диаграмм.
Кроме форматирования рядов и пр. добавляю на диаграмму 3 надписи:

    ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 310, 135, 60, 8).Select
    Selection.Characters.Text = "Тут типа моя надпись в правом нижнем углу"
    Selection.AutoScaleFont = False
    With Selection.Characters.Font
        .Name = "Arial Cyr"
        .FontStyle = "курсив"
        .Size = 9
        .ColorIndex = 1
    End With
Next Char

всё, вроде нормально. Но когда устанавливаю крупный масштаб надписи становятся невидимыми. Причем их видно только когда диаграмма активна. как бороться?

[motorway]

У вас это только кусок кода, если его вставить в таком виде, то не работает.

[alex77755]

Конечно кусок. Дело не в коде. В аттаче просто пример.
Поставьте масштаб 400 и надпись пропадёт. Но если активировать диаграмму, то надпись видно. На моих диаграммах рядов много и надписи пропадают уже при масшабе 150. А надо хотябы на 200 что бы было видно

[motorway]

Я пробовал создать надпись этим кодом, но она не появляется.
Та, которая сейчас есть в углу справа снизу, при 200 у меня была видна. Но это, похоже, не она

[DiemonStar]

http://s019.radikal.ru/i641/1203/a1/a5703d551c49.jpg

у меня вроде нет проблем с масштабированием...

[alex77755]

Забудте про кусок кода. Я просто показал каким образом я добавлял надпись

В аттаче просто пример.
Поставьте масштаб 400 и надпись пропадёт.

Я прикреплял просто пример. При увеличении масштаба выше 320 надпись становится невидимой. Хотя остаётся на месте и при активации видна.
Сейчас поэксперементировал с линейчатыми версиями.
Как и ожидалось макрос в них не работает. Ругается на строчку

ActiveChart.SeriesCollection(K).DataLabels.Select

Готовые диаграммы в линейчатых отображаются с "опавшими" линиями: все точки валяются на оси абсцисс(источники данных не заполнены). Достоинство только одно: надписи не пропадают.
В 2003 пробовал в двух офисах. Установленном и портабле. Эффект один.