Forum » Programiranje » Problem z macrotom v Wordu
Problem z macrotom v Wordu
vidi ::
Mam problem z Macrotom v Wordu.
Želim ustvariti macro, ki bo dodal sliko, ki bo "behind text". Zadeva deluje približno tako, da ko začnem recordat macro, lahko lepo dam insert picture from file, prtisnem control+back (jo označim) - mi celo računalnik odpre picture toolbar, da bi kao lahko urejal sliko, vendar ne morem zbrati nobenih opcij (vse je svetlo sivo) - ne morm izbrat, da bi bila slika behind text. Običajno to deluje, vendar ne pri snemanju macrota.
Končna zadeva, če zaženem macro zgleda tako, da mi sliko importira in označi in to je to.
Macro pa zgleda takole:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 9.12.2005 by XYZ
'
Selection.InlineShapes.AddPicture FileName:= _
"\\SERVER\Users\XYZ\My Documents\My Pictures\2005-12-08\Scan10002.JPG", _
LinkToFile:=False, SaveWithDocument:=True
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End Sub
Ali imate kakšne ideje, kako bi to zadevo čimelegantneje speljal.
Želim ustvariti macro, ki bo dodal sliko, ki bo "behind text". Zadeva deluje približno tako, da ko začnem recordat macro, lahko lepo dam insert picture from file, prtisnem control+back (jo označim) - mi celo računalnik odpre picture toolbar, da bi kao lahko urejal sliko, vendar ne morem zbrati nobenih opcij (vse je svetlo sivo) - ne morm izbrat, da bi bila slika behind text. Običajno to deluje, vendar ne pri snemanju macrota.
Končna zadeva, če zaženem macro zgleda tako, da mi sliko importira in označi in to je to.
Macro pa zgleda takole:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 9.12.2005 by XYZ
'
Selection.InlineShapes.AddPicture FileName:= _
"\\SERVER\Users\XYZ\My Documents\My Pictures\2005-12-08\Scan10002.JPG", _
LinkToFile:=False, SaveWithDocument:=True
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End Sub
Ali imate kakšne ideje, kako bi to zadevo čimelegantneje speljal.
Prodajam bučke!
Dej kup si liziko!
Dej kup si liziko!
- premaknil iz Pomoč in nasveti: ToniT ()
darkolord ::
Dim slika As InlineShape Dim tmpSlika As Shape Set slika = Selection.InlineShapes.AddPicture("F:\My Documents\My Pictures\sample.jpg") Set tmpSlika = slika.ConvertToShape tmpSlika.ZOrder msoSendBehindText Set slika = Nothing Set tmpSlika = Nothing
vidi ::
Hvala 100x!
Mam pa še eno vprašanje. Če se nahajam na začetku teksta in to pritisnem, potem zadeva deluje, če pa se nahajam nekje vmes mi pa dostikrat ne deluje in v Microsoft Visual Basic oknu napiše tole zadevo:
Run-time error '-2147467259 (80004005)':
Method 'ConvertToShape' of object 'InlineShape' failed
Mam pa še eno vprašanje. Če se nahajam na začetku teksta in to pritisnem, potem zadeva deluje, če pa se nahajam nekje vmes mi pa dostikrat ne deluje in v Microsoft Visual Basic oknu napiše tole zadevo:
Run-time error '-2147467259 (80004005)':
Method 'ConvertToShape' of object 'InlineShape' failed
Prodajam bučke!
Dej kup si liziko!
Dej kup si liziko!
Vredno ogleda ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | Programiranje problem androidOddelek: Programiranje | 1173 (938) | g333kk |
» | Word 2003 VBA problemOddelek: Programska oprema | 1040 (927) | mimax |
» | Ms word in funkcija branjeOddelek: Programska oprema | 1333 (1333) | Blond |
» | [Excel] problem z makrojem, visual basic (strani: 1 2 )Oddelek: Programiranje | 5664 (5127) | steev |
» | [VBA Excel]Oddelek: Programiranje | 1150 (1084) | Muzo |