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

[Velichestvo]

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

 

[morpheus]

желательно с изменениями размера её.

очень инетресный вапрос, я им сам почучуть занимаюсь.


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

 

[Velichestvo]

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

 

[morpheus]

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

хм... ну вот что у мну получилося

[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 )