Миф в word рисунок - Word и Excel - помощь в работе с программами

Только что появилась такая же проблема. Решил тем, что в шаблоне документ Word устанавливаю закладку там, куда мне нужно вставить изображение: Вставка -> Ссылки -> Закладка. Даю ей имя, к примеру Mark1.

В коде пишу:

1
2
3

...
wordDocument.InlineShapes.AddPicture( path, Type.Missing, Type.Missing, wordDocument.Bookmarks["MARK1"].Range );
...

где path — путь до изображения; wordDocument.Bookmarks["MARK1"] — свойство, которое является закладкой, которую вы установили в шаблоне документа(заранее нужно открыть этот шаблон). И у этого свойства есть объект Range, который указывает на позицию, в данном случае позицию нашей закладки.

Написал это все, так как долго искал в инете информацию по поводу того, как же мне вставить изображение в шаблон документа Word в определенное место. Так и не нашел, то что мне нужно. Пришлось самому допирать

Источник

Sub вставка()

Dim rng As Range, inshape As InlineShape
Dim высота As Single

‘1. Запись в переменную нужной высоты в мм.
высота = 100

‘2. Удаление рисунка, если выделен рисунок.
If Selection.Type = wdSelectionInlineShape Then
Selection.Delete
End If

‘3. Вставка содержимого буфера обмена в выделенный фрагмент или в место курсора.
Selection.Paste

‘4. Создаём ссылку на мигающий курсор.
Set rng = Selection.Range.Duplicate

‘5. Включаем в ссылку символ, который находится слева от мигающего курсора.
rng.MoveStart Unit:=wdCharacter, Count:=-1

‘6. Присваиваем рисунку имя «inshape» и далее можно обращаться в коде к рисунку по этому имени.
Set inshape = rng.InlineShapes(1)

‘7. Настройки рисунка.
‘1) Ставим галочку «сохранить пропорции», чтобы при изменении высоты, ширина изменялась пропорционально.
inshape.LockAspectRatio = True
‘2) Изменение высоты.
inshape.Height = MillimetersToPoints(высота)

End Sub

[свернуть]

Источник

Понадобилось мне тут в свое время писать много текста в MS Word, вставляя туда картинки. Понимая, что картинки рано или поздно понадобится переделывать, я пришел к необходимости вставки не картинок, а ссылок на них. Но вставить поле мало — крайне желательно еще и подписывать имя вставленной картинки.

При этом файл doc / docx может перемещаться между компьютерами (да, я пользуюсь и DropBox, и Yandex.Drive, и OneDrive). Соответственно надо вставлять относительные пути и подписывать их же. Не очень продолжительный поиск по сети и немного фантазии дали такой вариант:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73

Option Explicit

Public sInitialPath As String

Private Declare Function PathRelativePathToW _
Lib «shlwapi.dll» (ByVal pszPath As Long, _
ByVal pszFrom As Long, ByVal dwAttrFrom As Long, _
ByVal pszTo As Long, ByVal dwAttrTo As Long) _
As Boolean

Private Function GetRelativePath _
(ByVal sPathFrom As String, _
ByVal sPathTo As String) As String
‘ Определение относительного адреса
‘ каталога или файла
Dim sRelativePath As String
sRelativePath = Space(260) ‘ резервируем буфер
‘
If PathRelativePathToW(StrPtr(sRelativePath), _
StrPtr(sPathFrom), vbDirectory, _
StrPtr(sPathTo), 0) Then ‘ определили адрес
‘MsgBox sRelativePath
GetRelativePath = Left(sRelativePath, _
InStr(sRelativePath, vbNullChar) — 1)
Else ‘
GetRelativePath = «*»
End If
End Function

Public Sub InsertLinkToPicture()
Dim sFileName As String
Dim oField As Field
With Application.FileDialog(msoFileDialogOpen)
.Title = «Укажите рисунок»
.AllowMultiSelect = False
.ButtonName = «Select»
.Filters.Clear
.Filters.Add «Картинки», «*.jpg; *.tiff; *.tif; *.png»
If sInitialPath = «» Then sInitialPath = Application.ActiveDocument.Path
.InitialView = msoFileDialogViewList
If .Show Then sFileName = .SelectedItems(1) Else Exit Sub
End With
If Left(Selection.Text, 1) <> Chr(13) Then
Selection.TypeText Text:=vbCr
End If
sFileName = GetRelativePath(Application.ActiveDocument.FullName, sFileName)
Select Case True
Case Left(sFileName, 2) = «..»
sFileName = Right(sFileName, Len(sFileName) — 2)
Case Left(sFileName, 1) = «.»
sFileName = Right(sFileName, Len(sFileName) — 1)
End Select
If Left(sFileName, 1) = «/» Or Left(sFileName, 1) = «» Then
sFileName = Right(sFileName, Len(sFileName) — 1)
End If
Set oField = Selection.Fields.Add(Range:=Selection.Range, Type:=wdFieldEmpty, _
Text:=«INCLUDEPICTURE « + Chr(34) + _
Replace(sFileName, «», «/») + _
Chr(34) + » d « _
, PreserveFormatting:=True)

If InStr(sFileName, «_35%») Then
ActiveDocument.Hyperlinks.Add Anchor:=oField.Result, Address:=Replace(sFileName, «_35%», «»), SubAddress:=«»
End If

Selection.TypeText Text:=vbCrLf + Replace(sFileName, «_35%», «») ‘Right(sFileName, Len(sFileName) — Len(Application.ActiveDocument.Path))
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Italic = True
Selection.Font.Bold = True
Selection.Font.Color = wdColorRed
‘ Selection.Range.HighlightColorIndex = wdGreen
Selection.EndKey
End Sub

Но, как выяснилось, в MS Office 2013 x64 решение работать не будет (даже если попытаться корректно объявить импорт PathRelativePathToW, VBA отказывается обрабатывать указатели на строки). Поэтому было найдено другое решение:(исходник здесь):

Тогда по Ctrl+Z будет отменяться все целиком, а не по шагам. Нередко рядом с оригинальным файлом я кладу его «уменьшенную» копию (уменьшение выполняется с FastStone Image Viewer, картинка уменьшается до 35%, имя файла оканчивается на «_35%»). Если рядом с оригиналом есть уменьшенный вариант, в поле вставляется «уменьшенная» копия, а подпись идет на нормальный вариант. В результате получилось такое чудо:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119

Option Explicit

Public sInitialPath As String

Public Function GetRelativePath(ByVal sFrom As String, ByVal sTo As String) As String
GetRelativePath = «»
Dim sFromTmp As String, sToTmp As String, sTmp As String, bFirst As Boolean
sFromTmp = «»
sToTmp = «»
sTmp = «»
bFirst = True
Do While Len(sFrom) > Len(sFromTmp) Or Len(sTo) > Len(sToTmp)
If Len(sFrom) > Len(sFromTmp) Then
If Not bFirst Then sFrom = Right(sFrom, Len(sFrom) — Len(sFromTmp) — 1)
sFromTmp = GetLeftPart(sFrom)
Else
sFrom = «»
sFromTmp = «»
End If

If Len(sTo) > Len(sToTmp) Then
If Not bFirst Then sTo = Right(sTo, Len(sTo) — Len(sToTmp) — 1)
sToTmp = GetLeftPart(sTo)
Else
sTo = «»
sToTmp = «»
End If

If bFirst And sFromTmp <> sToTmp Then
Exit Function ‘ Нет общего корня
Else
bFirst = False
End If

If Len(GetRelativePath) > 0 Or sFromTmp <> sToTmp Then
If Len(sFromTmp) > 0 Then
If Len(GetRelativePath) > 0 Then
GetRelativePath = GetRelativePath & «..»
Else
GetRelativePath = GetRelativePath & «..»
End If
End If
If Len(sToTmp) > 0 Then
If Len(sTmp) > 0 Then
sTmp = sTmp & «» & sToTmp
Else
sTmp = sTmp & sToTmp
End If
End If
End If
Loop
If Len(sTmp) > 0 Then GetRelativePath = GetRelativePath & «» & sTmp
If 0 = Len(GetRelativePath) Then GetRelativePath = «.»
End Function

Function GetLeftPart(sPath)
Dim i As Integer
For i = 1 To Len(sPath)
If «» = Mid(sPath, i, 1) Then
GetLeftPart = Left(sPath, i — 1)
Exit Function
End If
Next
GetLeftPart = sPath
End Function

Public Sub InsertLinkToPicture()
Dim sFileName As String
Dim oField As Field
Application.UndoRecord.StartCustomRecord

With Application.FileDialog(msoFileDialogOpen)
.Title = «Укажите рисунок»
.AllowMultiSelect = False
.ButtonName = «Select»
.Filters.Clear
.Filters.Add «Картинки», «*.jpg; *.tiff; *.tif; *.png»
If sInitialPath = «» Then sInitialPath = Application.ActiveDocument.Path
.InitialView = msoFileDialogViewList
If .Show Then sFileName = .SelectedItems(1) Else Exit Sub
End With

If Left(Selection.Text, 1) <> Chr(13) Then
Selection.TypeText Text:=vbCr
End If
sFileName = GetRelativePath(Application.ActiveDocument.FullName, sFileName)

Select Case True
Case Left(sFileName, 2) = «..»
sFileName = Right(sFileName, Len(sFileName) — 2)
Case Left(sFileName, 1) = «.»
sFileName = Right(sFileName, Len(sFileName) — 1)
End Select

If Left(sFileName, 1) = «/» Or Left(sFileName, 1) = «» Then
sFileName = Right(sFileName, Len(sFileName) — 1)
End If

Set oField = Selection.Fields.Add(Range:=Selection.Range, Type:=wdFieldEmpty, _
Text:=«INCLUDEPICTURE « + Chr(34) + _
Replace(sFileName, «», «/») + _
Chr(34) + » d « _
, PreserveFormatting:=True)

If InStr(sFileName, «_35%») Then
ActiveDocument.Hyperlinks.Add Anchor:=oField.Result, Address:=Replace(sFileName, «_35%», «»), SubAddress:=«»
End If

Selection.TypeText Text:=vbCrLf + Replace(sFileName, «_35%», «»)
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Italic = True
Selection.Font.Bold = True
Selection.Font.Color = wdColorRed
Selection.EndKey
Selection.Collapse
Selection.TypeParagraph
Selection.Range.Style = ActiveDocument.Styles(wdStyleNormal)
Application.UndoRecord.EndCustomRecord
End Sub

Источник

A vba script that seems simple but don’t work exactly as I want .
My script inserts images ( PNG files) in the current document with a caption after each picture that is the name of the file.

So to insert images I use:

Selection.InlineShapes.AddPicture FileName: = sFile
Selection.TypeParagraph

And to insert text after I use:

Set Opar = ActiveDocument.Paragraphs.Add
oPar.Range.Text = sFile
oPar.Range.Style = " Normal"

The problem is that images are all found in the beginning of the document , arranged in reverse order (the last image inserted appears first in the document) and legends are all found at the end of the document.

What’s happening ?

asked Oct 15, 2015 at 14:48

@Boro: It’s more efficient to work directly with the object model than trying to coerce Selection (imitating the user actions). There’s no single way to achieve what you describe, so I’m going to demonstrate my preference:

Dim ils as Word.InlineShape
Dim rng as Word.Range
'Starting with current sel, but this could also be a Range...
Set ils = Selection.InlineShapes.AddPicture(FileName: = sFile)
Set rng = ils.Range
'Move the focus AFTER the picture
rng.Collapse wdCollapseEnd
'new para, text, followed by new para
rng.Text = vbCr & sFile & vbCr
rng.Style = wdStyleNormal
'focus in last para inserted by code
rng.Collapse wdCollapseEnd
'Do other things with the Range...
'Leave cursor there for user to work
rng.Select

The key in my approach is collapsing the Range, either to the start or end point. Think of it like pressing the left or right arrow key to reduce the selection to a blinking cursor. Except you can have any number of Ranges (but only one Selection) and things won’t jump around on the screen.

answered Oct 15, 2015 at 18:00

Cindy MeisterCindy Meister

24.9k21 gold badges35 silver badges43 bronze badges

Источник

Как в диаграмме изменить легенду?

Как изменить легенду в диаграмме в ворде?

Откроется панель Работа с диаграммами с дополнительными вкладками Конструктор, Макет и Формат. На вкладке Конструктор в группе Данные нажмите кнопку Выбрать данные. В диалоговом окне Выбор источника данных в поле Элементы легенды (ряды) выберите элемент легенды, который вы хотите изменить. Нажмите кнопку Изменить.

Как в диаграмме подписать легенду?

Добавление условных обозначений диаграммы

Щелкните диаграмму.
Нажмите кнопку Элементы диаграммы возле таблицы.
Установите флажок Добавить легенду. Теперь на диаграмме отображается легенда.

Как в Excel изменить название ряда в диаграмме?

Переименование ряда данных

Щелкните правой кнопкой мыши диаграмму с рядом данных, который вы хотите переименовать, и выберите команду Выбрать данные.
В диалоговом окне Выбор источника данных в разделе Элементы легенды (ряды) выберите ряд данных и нажмите кнопку Изменить.
В поле Имя ряда введите нужное имя.

Как изменить подписи данных в диаграмме?

Добавление подписей данных в диаграмму

Щелкните ряд данных или диаграмму. …
В верхнем правом углу рядом с диаграммой нажмите кнопку Добавить элемент диаграммы …
Чтобы изменить расположение, щелкните стрелку и выберите нужный параметр.

Как изменить название легенды в ворде?

Выделите в книге ячейку, содержащую имя легенды, которое нужно изменить.
…

Выберите диаграмму в Excel и щелкните Конструктор > Выбрать данные.
Щелкните элемент легенды в диалоговом окне Выбор источника данных и нажмите кнопку Изменить. …
Введите имя элемента легенды в текстовом поле Имя ряда и нажмите кнопку ОК.

Как сделать подписи горизонтальной оси?

Щелкните правой кнопкой мыши подписи категорий, которые нужно изменить, и выберите команду Выбрать данные.

В поле Подписи горизонтальной оси (категории) нажмите кнопку Изменить.
В поле Диапазон подписей оси введите (через запятые) подписи, которые нужно использовать.

Как в диаграмме подписать?

Добавление названий осей вручную

Щелкните в любом месте диаграммы, к осям которой нужно добавить названия. …
На вкладке Макет в группе Подписи нажмите кнопку Названия осей.
Выполните одно из следующих действий: …
В текстовом поле Название оси, появившемся на диаграмме, введите нужный текст.

Как сделать подписи на гистограмме?

Щелкните правой кнопкой мыши подписи категорий, которые нужно изменить, и выберите команду Выбрать данные . В разделе Подписи горизонтальной оси (категорий) нажмите кнопку Изменить . В поле диапазон подписей оси введите подписи, которые вы хотите использовать, разделенных запятыми.

Что такое легенда на диаграмме?

1)подпись,определяющая категорию данных на диаграмме,с использованием узора или цвета 3)подписи данных … 4)название ряда данных

Как можно добавить к диаграмме недостающие объекты?

Добавление ряда данных в диаграмму на отдельном листе

Введите новый ряд данных, который нужно добавить, в ячейки на листе, расположенные рядом с исходными данными диаграммы или под ними.
Щелкните лист, содержащий диаграмму.
Щелкните диаграмму правой кнопкой мыши и выберите пункт Выбор данных.

Как внести изменения в диаграмму?

Изменения будут отражены на диаграмме в Word.

В меню Вид выберите пункт Разметка страницы.
Щелкните диаграмму.
На вкладке Диаграммы в группе Данные нажмите стрелку рядом с полем Изменить и выберите команду Изменить данные в Excel.

Где могут располагаться диаграммы?

Диаграмма представляет собой вставной объект, внедренный на один из листов рабочей книги. Она может располагаться на том же листе, на котором находятся данные, или на любом другом листе (часто для отображения диаграммы отводят отдельный лист).

Как сделать подписи на точечной диаграмме?

Выделим любую точку на диаграмме. В меню Работа с диаграммами , во вкладке Макет , в группе Подписи выберите Подписи данных/ Дополнительные параметры подписей данных . Как видно из картинки выше, в качестве подписи для точки можно установить имя ряда, значения Х и значения Y .

Как подписать данные в круговой диаграмме?

Щелкаем левой кнопкой по готовой круговой диаграмме. Переходим на вкладку «Макет». Нам нужна кнопка «Подписи данных». В раскрывшемся списке выбираем место для подписей.

Изменение элементов легенды диаграммы

Если диаграмма имеет легенда, вы можете изменить отдельные элементы легенды, отредактировать соответствующие данные на лист. Чтобы изменить дополнительные параметры редактирования или элементы легенды, не влияя на данные, можно внести изменения в элементы легенды в диалоговом окне Выбор источника данных.

В этой статье

Редактирование элементов легенды на листе

На листе щелкните ячейку с именем ряда данных, который отображается в качестве элемента легенды.

Введите новый текст и нажмите клавишу ВВОД.

Новое имя автоматически будет отображено в легенде на диаграмме.

Редактирование элементов легенды в диалоговом окне «Выбор источника данных»

Щелкните диаграмму, содержащую элементы легенды, которые вы хотите изменить.

Откроется панель Работа с диаграммами с дополнительными вкладками Конструктор, Макет и Формат.

На вкладке Конструктор в группе Данные нажмите кнопку Выбрать данные.

В диалоговом окне Выбор источника данных в поле Элементы легенды (ряды) выберите элемент легенды, который вы хотите изменить.

Нажмите кнопку Изменить.

Совет: Чтобы добавить элемент легенды, нажмите кнопку Добавить, а чтобы удалить его — кнопку Удалить.

В ячейке свойства Имя ряда выполните одно из следующих действий:

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

Совет: Также можно нажать кнопку свертывания диалогового окна справа от поля Имя ряда, а затем выделить ячейку листа, содержащую данные, которые требуется использовать в качестве элемента легенды. По завершении снова нажмите кнопку сворачивания диалогового окна, чтобы отобразить диалоговое окно целиком.

Введите имя элемента легенды, которое вы хотите использовать.

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

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

Совет: Также можно нажать кнопку свертывания диалогового окна справа от поля Имя ряда, а затем выделить ряд данных, который вы хотите использовать в качестве нового элемента легенды. По завершении снова нажмите кнопку сворачивания диалогового окна, чтобы отобразить диалоговое окно целиком.

Отображение и скрытие легенды или таблицы данных на диаграмме

В этом курсе:

Создание диаграммы от начала до конца
Статья
Добавление и удаление названий на диаграмме
Статья
Отображение и скрытие легенды или таблицы данных на диаграмме
Статья
Добавление и удаление вспомогательной оси на диаграмме в Excel
Статья
Добавление тренда или линии среднего значения к диаграмме
Статья
Выбор диаграммы с помощью экспресс-анализа
Статья
Обновление данных в существующей диаграмме
Статья
Показ тенденций изменения данных с помощью спарклайнов
Статья

Отображение и скрытие легенды или таблицы данных на диаграмме

Вы можете скрыть или отобразить легенду диаграммы.

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

Отображение легенды диаграммы

Выделите диаграмму, а затем щелкните знак «плюс» в правом верхнем углу экрана.

Наведите указатель мыши на пункт Условные обозначения и щелкните стрелку рядом с ней.

Укажите, где должна отображаться легенда на диаграмме.

Скрытие легенды диаграммы

Выделите легенду, которую нужно скрыть.

Нажмите клавишу DELETE.

Отображение или скрытие таблицы данных

Выделите диаграмму, а затем щелкните знак «плюс» в правом верхнем углу экрана.

Чтобы отобразить таблицу данных, наведите указатель на элемент Таблица данных и щелкните стрелку рядом с ней и выберите параметр отображения.

Чтобы скрыть таблицу данных, снимите флажок » Таблица данных «.

Отображение и скрытие легенды

Щелкните диаграмму, в которой необходимо отобразить или скрыть легенду.

Откроется панель Работа с диаграммами с дополнительными вкладками Конструктор, Макет и Формат.

На вкладке Макет в группе Подписи нажмите кнопку Легенда.

Выполните одно из следующих действий:

Чтобы скрыть легенду, выберите пункт Нет.

Совет: Чтобы быстро удалить из диаграммы легенду или ее элемент, выберите их и нажмите клавишу DELETE. Можно также щелкнуть легенду или элемент легенды правой кнопкой мыши и выбрать команду Удалить.

Чтобы отобразить легенду, выберите нужный параметр отображения.

Примечание: При выборе одного из параметров отображения легенда перемещается, а область построения автоматически изменяется в соответствии с ней. Если переместить легенду и изменить ее размер с помощью мыши, область построения автоматически не изменится.

Чтобы задать дополнительные параметры, выберите пункт Дополнительные параметры легенды и укажите нужный параметр отображения.

Совет: По умолчанию легенда и диаграмма не перекрываются. Если место ограничено, возможно, удастся уменьшить диаграмму, сняв флажок Показывать легенду без перекрытия диаграммы.

Отображение или скрытие таблицы данных

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

Откроется панель Работа с диаграммами с дополнительными вкладками Конструктор, Макет и Формат.

На вкладке Макет в группе Подписи нажмите кнопку Таблица данных.

Выполните одно из указанных ниже действий.

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

Чтобы скрыть таблицу данных, выберите пункт Нет.

Совет: Чтобы быстро удалить таблицу данных из диаграммы, выберите ее и нажмите клавишу DELETE. Можно также щелкнуть таблицу данных правой кнопкой мыши и выбрать команду Удалить.

Чтобы задать дополнительные параметры, выберите пункт Дополнительные параметры таблицы данных и укажите нужный параметр отображения.

Совет: Если легенда уже отображается в диаграмме, флажок Ключ легенды можно снять.

Примечание: В линейчатых диаграммах и диаграммах с осью дат таблица данных не прикрепляется к горизонтальной оси диаграммы — она располагается ниже оси и выравнивается в соответствии с диаграммой.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community, попросить помощи в сообществе Answers community, а также предложить новую функцию или улучшение на веб-сайте Excel User Voice.

Примечание: Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Была ли информация полезной? Для удобства также приводим ссылку на оригинал (на английском языке).

Источник