mathcad => word Использование команды PasteSpecial

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
ozyabkin
Новичок
Новичок
 
Сообщения: 42
Зарегистрирован: 16.11.2005 (Ср) 0:02

mathcad => word Использование команды PasteSpecial

Сообщение ozyabkin » 15.03.2022 (Вт) 13:55

Добрый день.
Проблема с версиями 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 - код не функционален.

Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 5

    TopList  
cron