1 Тема от javer

  • javer
  • сержант
  • Неактивен
  • Зарегистрирован: 22.08.2012
  • Сообщений: 21
  • Поблагодарили: 2

Тема: Вставка связанного графика или диаграммы (качество рисунка)

Добрый день.
Помогите с такой ситуацией.
В excel 2007 есть графики и диаграммы.
Мне нужно их вставить в Word чтобы они были связанные.
В Word при помощи "Специальная вставка" -> "Связать" вставляю график и там есть 2 пункта которые работают:
1) Рисунок (метафайл Windows)
2) Диаграмма Microsoft Office Excel (объект)

Если я вставляю "Рисунок (метафайл Windows)" - то качество этого рисунка очень плохое.
Если я вставляю "Диаграмма Microsoft Office Excel (объект)" - то качество отличное, но при обновление ссылки на этот же график, картинка приобретает вид "Рисунок (метафайл Windows)" с плохим качеством.

Вопрос? Почему "Рисунок (метафайл Windows)" с таким плохим качеством? Как мне это исправить?

Файл с плохим качеством приложил.

Post's attachments

1111111.png
1111111.png 9.79 Кб, 1 скачиваний с 2013-12-17 

You don't have the permssions to download the attachments of this post.

2 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243

Re: Вставка связанного графика или диаграммы (качество рисунка)

Дело в том, что у Вас трехмерная диаграмма и когда ее копируете в буфер обмена, он не может описать эти трехмерные объекты формулой, поэтому эти детали растрируются с экранным разрешением в 72 dpi, а для нормальной печати требуется 300 dpi. Вот текст и двухмерные объекты он описывает формулой и представляет их в кривых. Единственный совет - это создавать трехмерные диаграммы напрямую в Wordе перенося данные из документа Excel.  С двухмерными графиками такой байды не будет.

3 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243

Re: Вставка связанного графика или диаграммы (качество рисунка)

Еще один вариант попробуте скопировать и вставить напрямую, без спец вставки. У меня все нормально работает и обновляется.

4 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243

Re: Вставка связанного графика или диаграммы (качество рисунка)

Во вложении документ с 2-мя диаграммами. 1-я вставлена специальной вставкой она и так неахти была, и при разрыве связи еще потеряла в качестве.
2-я диаграмма вставлена прямым копированием. При наличии файла исходника она свободно обновляется не теряя качества, такойже остается и при разрыве связи.

5 Ответ от javer

  • javer
  • сержант
  • Неактивен
  • Зарегистрирован: 22.08.2012
  • Сообщений: 21
  • Поблагодарили: 2

Re: Вставка связанного графика или диаграммы (качество рисунка)

Как вариант да, можно напрямую. Тут еще одна проблема, если на прямую это делать.
Я постоянно меняю положение файла, поэтому приходится менять связи word с excel. Я это делаю при помощи макроса, или при помощи alt + f9, и меняю связь поиск - замена.

Если на прямую вставлять картинку - то связь через alt + f9 не поменяешь, а приходится менять через "Подготовить" - "Изменить ссылки на файл" и там вручную менять каждую, что не очень хорошо.

6 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243

Re: Вставка связанного графика или диаграммы (качество рисунка)

Вот файл

Post's attachments

Диаграмма.docx 119.38 Кб, 4 скачиваний с 2013-12-17 

You don't have the permssions to download the attachments of this post.

7 Ответ от javer

  • javer
  • сержант
  • Неактивен
  • Зарегистрирован: 22.08.2012
  • Сообщений: 21
  • Поблагодарили: 2

Re: Вставка связанного графика или диаграммы (качество рисунка)

Эти диаграммы Вы скопировали с Excel.
1) Спец. вставка с ссылкой на Excel
2) Просто скопировали и вставили
Так?

Попробуйте, в первом варианте, изменить ссылку на тот же excel файл через "Подготовить" - "Изменить ссылки на файл" и послу этого обновить 1-ую диаграмму. Увидите результат плохого качества.

У меня еще к Вам вопрос, исправит все проблемы))
В папке у меня excel и word файл.
Как сделать так, чтобы при копирования этих двух файлов в другую папку ссылки word на excel сохранялись (чтобы были относительные ссылки).
Как это сделать?

8 Ответ от javer

  • javer
  • сержант
  • Неактивен
  • Зарегистрирован: 22.08.2012
  • Сообщений: 21
  • Поблагодарили: 2

Re: Вставка связанного графика или диаграммы (качество рисунка)

Посмотрел Ваш файл через "Подготовить" - "Изменить ссылки на файл", ссылки у Вас вроде относительные. Как Вы это сделали?

9 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243

Re: Вставка связанного графика или диаграммы (качество рисунка)

Если файлы после копирования находятся также в одной папке, то можно написать макрос.

10 Ответ от javer

  • javer
  • сержант
  • Неактивен
  • Зарегистрирован: 22.08.2012
  • Сообщений: 21
  • Поблагодарили: 2

Re: Вставка связанного графика или диаграммы (качество рисунка)

А как Вы тогда сделали, что у Вас ссылки относительными стали?

Можете написать макрос?

11 Ответ от javer

  • javer
  • сержант
  • Неактивен
  • Зарегистрирован: 22.08.2012
  • Сообщений: 21
  • Поблагодарили: 2

Re: Вставка связанного графика или диаграммы (качество рисунка)

И вот еще нашел схему "Как сохранить связи word" - excel через vba
внешняя ссылка
Только вот не понял как это сделать.

12 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243
  • За сообщение: 1

Re: Вставка связанного графика или диаграммы (качество рисунка)

В общем беда Ваша выглядит так:
1. Создайте в Вашем VBA проекте новый модуль, например Module1.
2. Вставьте в него код.

Public InLineChart As InlineShape ' Объект диаграмма

Public Property Get Charts() As Collection ' Коллекция диаграмм документа
    Set Charts = New Collection
        For Each InLineChart In ActiveDocument.InlineShapes
            If InLineChart.Type = wdInlineShapeChart Or InLineChart.Type = wdInlineShapeDiagram Then
                Charts.Add InLineChart
            End If
        Next InLineChart
End Property

Public Property Get Path() As String ' Папка, где находятся документы
    Path = ActiveDocument.Path
End Property

Public Function LinkFile(LF As LinkFormat) As String ' Новый путь связанного файла, где находится диаграмма
    LinkFile = Path & "\" & LF.SourceName
End Function

Public Sub UpdateLink() ' Макрос связывания диаграмм и документа Word
Dim inshp As InlineShape
    If Charts.Count = 0 Then ' Если диаграмм в документе нет выходим из макроса
        Exit Sub
    Else
        For i = 1 To Charts.Count ' Перебираем все диаграммы
            Set inshp = Charts(i)
            inshp.LinkFormat.SourceFullName = LinkFile(inshp.LinkFormat) ' Привязываем диаграмм к файлу
        Next i
    End If
End Sub

3. В модуле  ThisDocument создайте процедуру:

Private Sub Document_Open()
    Module1.UpdateLink
End Sub

4. Теперь автоматически при открытии будут перезвязываться файлы, при условии что вы их вместе переместили в другую папку.

13 Ответ от javer

  • javer
  • сержант
  • Неактивен
  • Зарегистрирован: 22.08.2012
  • Сообщений: 21
  • Поблагодарили: 2

Re: Вставка связанного графика или диаграммы (качество рисунка)

Спасибо, сейчас буду разбираться.

14 Ответ от javer

  • javer
  • сержант
  • Неактивен
  • Зарегистрирован: 22.08.2012
  • Сообщений: 21
  • Поблагодарили: 2

Re: Вставка связанного графика или диаграммы (качество рисунка)

Работает))

15 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243

Re: Вставка связанного графика или диаграммы (качество рисунка)

Ну вот и хорошо.