Диаграмма

[Exo]

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

Я вероятно чего-то не понял (или потому, что тут нет 2007 Экселя), но при наведении на точку видно еще и название компании, без всяких ухищрений.

по оси Х невидно процентов
+
не видно суммы продаж при наведении

[staniiislav]

может вас интересует такой вариант

[staniiislav]

а чтобы были видны суммы, просто поставьте подписи данных

[Exo]

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

может вас интересует такой вариант

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

по этому изначально предполагалось пользоваться макросом, который сам добавит в диаграмму значения скидки/суммы/компании построчно, перебором.

проблема, что не могу написать такой макрос

[gluk_fm]

На выходных не работаю
В приложении то что Вы просили с автоматическим добавлением параметров и форматированием графика.

[gluk_fm]

Ой просмотрел. Если необходимо поменять оси поменяйте параметры а2 и а3 местами. Если есть вопросы пишите.

[Exo]

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

Ой просмотрел. Если необходимо поменять оси поменяйте параметры а2 и а3 местами. Если есть вопросы пишите.

круть! то, что нужно.

Вас как-то можно...не могу сказать отблагодарить...но хотя бы поощрить?

З.Ы. истетический вопросик, можно как-то сделать маркеры на графике одинаковые? простое добавление после Вашей части кода (форматирования текста):

 With Selection.Font
            .Name = "Arial Cyr"
            .FontStyle = "îáû÷íûé"
            .Size = 8
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ColorIndex = xlAutomatic
            .Background = xlAutomatic
           End With

моего кода:

With Selection.Marker
        .MarkerStyle = 2
        .MarkerSize = 7
 End With

не помогает...ошибка выскакивает. Кстати, а зачем в принципе у Вас форматирование текста? Это как-то важно...просто если Excel будет у пользователя скажем английский...наверно будет ошибка вылетать.

[gluk_fm]

Можно только Вы как и я раньше всё время забываю обьявить что меняем

ActiveChart.SeriesCollection(i).Sel ect ' i - переменная
With Selection.Border
.Weight = xlHairline
.LineStyle = xlNone
End With
With Selection
.MarkerBackgroundColorIndex = 3
.MarkerForegroundColorIndex = 3
.MarkerStyle = xlStar
.Smooth = False
.MarkerSize = 5
.Shadow = False
End With

[gluk_fm]

Поощрения не требуется я сам потихоньку учусь и развиваюсь выполняя такие задания.

[Exo]

ок! все получилось, большое спасибо!!!