Zdravim,
potreboval bych poradit jak ve VB6 vlozit na nejake urcite misto v .docu obrazek nacteny kuprikladu z disku...
Diky moc za rady...
Printable View
Zdravim,
potreboval bych poradit jak ve VB6 vlozit na nejake urcite misto v .docu obrazek nacteny kuprikladu z disku...
Diky moc za rady...
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.
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...
Kód: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