Выгрузка картинки из Rtf поля в документ Ms Word

Тема в разделе "Lotus - Программирование", создана пользователем Velichestvo, 12 июл 2008.

  1. Velichestvo

    Velichestvo Гость

    Доброго времени суток!
    Если кто делал, не подскажите (может примерчик остался), как вставить картинку в документ Word, желательно с изменениями размера её.
    Спасибо!
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    очень инетресный вапрос, я им сам почучуть занимаюсь.


    вставить картинку в Word - открываете ворд, записываете макрос как Вы вставляете картинку. ОТкрываете редактор VBA и видите на 80% готовый код
     
  3. Velichestvo

    Velichestvo Гость

    Да эт понятно. Вот только когда макрас пишется проблемы возникают с выделением картинки, чтобы в дальнейшем изменить её размер.
     
  4. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    хм... ну вот что у мну получилося

    [codebox]
    Sub Макрос6()
    '
    ' Макрос6 Макрос
    ' Макрос записан 14.07.2008 ***
    '
    Selection.Paste
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.InlineShapes(1).Fill.Visible = msoFalse
    Selection.InlineShapes(1).Fill.Solid
    Selection.InlineShapes(1).Fill.Transparency = 0#
    Selection.InlineShapes(1).Line.Weight = 0.75
    Selection.InlineShapes(1).Line.Transparency = 0#
    Selection.InlineShapes(1).Line.Visible = msoFalse
    Selection.InlineShapes(1).LockAspectRatio = msoTrue
    Selection.InlineShapes(1).Height = 47.9
    Selection.InlineShapes(1).Width = 47.9
    Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
    Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
    Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
    Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
    Selection.InlineShapes(1).PictureFormat.CropRight = 0#
    Selection.InlineShapes(1).PictureFormat.CropTop = 0#
    Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
    End Sub

    [/codebox]


    Selection.InlineShapes(1).Height = 47.9
    Selection.InlineShapes(1).Width = 47.9

    и есть изменение масштаба. отсалося только обработать InlineShapes(1) - знать индекс рисунка(хотя похоже на то что это простое выделение)

    выделить можно сместившись на рисунок ( Selection.MoveLeft Unit:=wdCharacter, Count:=1 )
     
Загрузка...
Похожие Темы - Выгрузка картинки из
  1. Mikle_GB
    Ответов:
    12
    Просмотров:
    633
  2. KapitoliyKakoyTo
    Ответов:
    1
    Просмотров:
    2.802
  3. JohnLemon
    Ответов:
    47
    Просмотров:
    2.734
  4. Надя1972
    Ответов:
    0
    Просмотров:
    643
  5. AndreiBY
    Ответов:
    0
    Просмотров:
    1.332

Поделиться этой страницей