Excel VBA - заменить маркер на диаграмме - PullRequest
0 голосов
/ 18 апреля 2019

Я хотел бы заменить маркеры линейного графика изображением в VBA.

Это эквивалентно:

enter image description here

Я скопировал / вставил это изображение в лист рабочей книги и назвал его picture.

With .ChartObjects("graph").Chart
    .SeriesCollection(1).MarkerStyle = xlMarkerStylePicture
    ...
End With

Что я должен использовать, чтобы заменить ... и указать на мое изображение?

Спасибо

Ответы [ 2 ]

1 голос
/ 19 апреля 2019

Благодаря предложению Кирилла Мне удалось скопировать / вставить картинку, чтобы заменить последнюю точку серии.Код:

Sheets("param").Shapes("picture").CopyPicture
With .ChartObjects("graph").Chart
    .Points(.Points.Count).Paste
End With

Если у кого-то есть лучшее решение, не стесняйтесь его опубликовать!

0 голосов
/ 18 апреля 2019

Если вы используете что-то в своей файловой системе, вы можете использовать это:

With .ChartObjects("graph").Chart
    .SeriesCollection(1).MarkerStyle = xlMarkerStylePicture
    .SeriesCollection(1).Format.Fill.UserPicture "C:\...your path...\pic.png"
End With
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...