Živijo!
Imam problem z macroti. Želel bi ustvariti macro, ki mi importira točno določeno sliko (kar mi še uspe), jo označi (mi tudi uspe) ter nastavi, da je "Behind text" - kar mi pa nikakor ne uspe.
Ali imate kakšne ideje?
Hvala za odg.
Problem pri ustvarjanju Macrota
Jaz s samimi macroti nimam nobenih izkusen. Tole je čisto preprosta zadeva, vendar ne vem, zakaj ne morem po tem, ko je slika že označena še izbrati da jo da "Behind text", ker ko sliko označim, se mi še celo pokaže Picture toolbar, ampak je vse tisto zamegljeno. Na žalost pa ne znam napisati komand za to. Kar sem pa ustvaril je pa tukaj:
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
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
Ja, samo s snemanjem ne bo šlo .
Sliko je potrebno pretvoriti v Shape in šele takrat lahko uporabimo konstanto msoSendBehindText .
Vašo kodo dopolnite s
in je problem s tem rešen.
P.S.
Sliko je potrebno pretvoriti v Shape in šele takrat lahko uporabimo konstanto msoSendBehindText .
Vašo kodo dopolnite s
Koda: Izberi vse
Selection.InlineShapes(1).ConvertToShape
Shapes(1).ZOrder msoSendBehindText
P.S.
Še enkrat dodajam pripis, ki ga je dodal Matjaž. Pri vstavljanju kode uporabljajte gumb 'Code'!+ ne pozabite kode označiti z tagom /CODE/
Življenje je enostavno, če poznaš "The Secret".
GoldZ
GoldZ