Проблема с версиями Word. Код безупречно работал с Word 2000 - 2003. С 2007 версии по версию 2020 вместо графика в Word записывается пустой фрейм ole-объекта MathCad.
Фрагмент кода:
- Код: Выделить всё
' Скопировать график поверхности отклика
GrafY.Copy ' ole - объект VB
Set thisRange = thisDoc.Paragraphs(RangeId).Range
With thisRange
' Установить параметры шрифта
.Font.Size = 12
.Font.Italic = False
.Font.Underline = False
' Установить параметры абзаца
.ParagraphFormat.LeftIndent = 0
.ParagraphFormat.RightIndent = 0
.ParagraphFormat.SpaceBefore = 0
.ParagraphFormat.SpaceAfter = 0
.ParagraphFormat.Alignment = wdAlignParagraphLeft
' Вставить скопированный график в текущую позицию документа
.PasteSpecial Link:=False, _
Placement:=wdInLine, _
DisplayAsIcon:=False, _
DataType:=wdPasteMetafilePicture
...
Пробовал использовать команду PasteSpecial непосредственно в Excel - макросе. Проблем нет.
Если же тоже самое использую в Vb6 - код не функционален.