Макрос для форматирования диаграммы в word

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Макрос для форматирования диаграммы в word (Word)

Dimash209

Дата: Воскресенье, 29.09.2013, 10:39 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: -10 ±

Замечаний: 0% ±

Excel 2010

Добрый день!

Как всегда нужна помощь!
Сначала о задаче. Необходимо, что бы после вставки диаграммы в WORD , она принимала заданные размеры.
(ВАЖНО! Ежедневно необходимо именно ВСТАВЛЯТЬ одни и те же диаграммы, а не обновлять.) Того требует специфика процесса.

Имею начальные представления о vba и есть вопросы:
1. как обратиться к диаграмме? (как я понимаю, сначала ей надо присвоить имя, а потом уже обращаться. Если не прав, пожалуйста исправьте.)
2. как задать размеры в см, а не в дюймах или пикселях?

Заранее спасибо!

Ответить

_Boroda_

Дата: Воскресенье, 29.09.2013, 15:46 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16714

Репутация: 6503 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата (Dimash209, 29.09.2013 в 10:39, в сообщении № 1)

как обратиться к диаграмме? (как я понимаю, сначала ей надо присвоить имя, а потом уже обращаться. Если не прав, пожалуйста исправьте.)

У нее уже есть имя. Какое - зависит от того, как Вы ее вставляете, вернее, откуда перед вставкой берете. Кстати, не понятно, что же это за специфика процесса такая, что обновлять нельзя.
Размеры в см. или в мм. задаются так
[vba]

Код

Application.Resize Width:=CentimetersToPoints(11), Height:=CentimetersToPoints(5)
Application.Resize Width:=MillimetersToPoints(110), Height:=MillimetersToPoints(50)

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Dimash209

Дата: Воскресенье, 29.09.2013, 16:50 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: -10 ±

Замечаний: 0% ±

Excel 2010

_Boroda_,прежде всего спасибо за помощь с размерами!

На счет специфики... просто приходится накладывать два графика друг на друга.

Если можете помогите пожалуйста добить тему. Как мне обратиться к диаграмме?

Допустим в excel она называется "диаграмма 1".

я вставляю её в word и запускаю к примеру нижеследующий макрос.
Помогите, пожулайста с синтаксисом!!!

Sub bb()
Dim myChart As Chart
Set myChart = Charts("Диаграмма1")

myChart.Application.Resize Width:=MillimetersToPoints(110), Height:=MillimetersToPoints(50)
End Sub

надеюсь, что написал хоть что-то правильно

Ответить

_Boroda_

Дата: Воскресенье, 29.09.2013, 17:16 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16714

Репутация: 6503 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата (Dimash209, 29.09.2013 в 16:50, в сообщении № 3)

На счет специфики... просто приходится накладывать два графика друг на друга.

А вот с этого момента поподробнее. Обе диаграммы из Excel? Тогда что Вам мешает наложить их друг на дружку в том же Excel (предварительно подогнав размеры), сгруппировать, скопировать и вставить полученное в Word?
Кстати, я в таких случаях вставляю диаграммы не обычной вставкой, а спецвставка - связь. Тогда диаграмма сама изменяется при изменении данных в Excel. И не нужно никаких макросов.

Ответить

Dimash209

Дата: Воскресенье, 29.09.2013, 17:51 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: -10 ±

Замечаний: 0% ±

Excel 2010

_Boroda_, да вы правы обе диаграммы их Excel.

Про группировку не знал. Завтра обязательно попробую с рабочими файлами.
Спасибо вам большое!

Ответить

Макрос для форматирования диаграммы в word (Word)

Страница 1 из 1
1