Public Sub AddTwoShapes() 'добавляются рисунки в коллекцию TableOfFiguress и InlineShapes Dim Item As AutoCaption Dim MyPath As String Documents("DocOne").Activate MyPath = ActiveDocument.Path 'Отключим вставку автозаголовока для рисунков Set Item = Word.Application.AutoCaptions("Microsoft Word Picture") item.AutoInsert = False With ActiveDocument 'Рисунок добавляется в коллекцию TableOfFiguress .Shapes.AddPicture FileName:=MyPath & "\cat.gif" 'Рисунок добавляется в коллекцию InlineShapes 'привязывается к первому параграфу документа. .InlineShapes.AddPicture FileName:=MyPath & "\mouse.bmp", _ Range:=.Paragraphs.First.Range End With End Sub |
Листинг 1.32. |
Закрыть окно |