[VB] Vlozeni obrazku do wordu

[xvojta]

Zdravim,
potreboval bych poradit jak ve VB6 vlozit na nejake urcite misto v .docu obrazek nacteny kuprikladu z disku...

Diky moc za rady...

[Smitka]

Makro: ActiveDocument.Shapes.AddPicture ("c:\pes.jpg")
(ta funkce má další parametry, i pozici)
Nebo pokud tam nechceš dát plovoucí, tak můžeš místo ActiveDocument.Shapes použít Selection.InlineShapes, to vloží obrázek na aktuální místo v dokumentu.

[xvojta]

diky.. vyreseno vkladani, ale ted bych spis potreboval poradit jak ten obrazek dostat na nejaky konkretni misto v dokumentu... treba strana 3, radek 25... nebo nejaky souradnice... ci alespon zacatek/konec strany cislo 4..

da se to vubec?



P.S.pokud by nekdo potreboval...

Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True
wordApp.DisplayAlerts = True
Set wordDoc = wordApp.Documents.Add() 

Dim pageNo As Integer
Dim picturePath As String
Dim pictureName As String

picturePath = "C:\Temp\"
pictureName = picturePath & "obr.jpg"

pageNo = 1
wordDoc.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=pageNo
wordDoc.InlineShapes.AddPicture pictureName, False
wordDoc.SaveAs "C:\Temp\obr.doc"
Set wordDoc = Nothing
wordApp.Quit True
Set wordApp = Nothing