Problem pri ustvarjanju Macrota

Pomoč pri delu z MS Wordom
Odgovori
vidi
Prispevkov: 2
Pridružen: Pe Dec 09, 2005 3:46 pm

Problem pri ustvarjanju Macrota

Odgovor Napisal/-a vidi »

Ž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.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Pozdravljeni,

Pošljite makro, kot ga imate pa bova videla (seveda samo ta del, ki se ukvarja z uvozom slike... ne kakšne "solate" v 500 vrsticah + ne pozabite kode označiti z tagom /CODE/)
lp,
Matjaž Prtenjak
Administrator
vidi
Prispevkov: 2
Pridružen: Pe Dec 09, 2005 3:46 pm

Odgovor Napisal/-a vidi »

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
GoldZ
Prispevkov: 137
Pridružen: Če Sep 01, 2005 10:20 am

Odgovor Napisal/-a GoldZ »

Ja, samo s snemanjem ne bo šlo :D .

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
in je problem s tem rešen.

:wink:

P.S.
+ ne pozabite kode označiti z tagom /CODE/
Še enkrat dodajam pripis, ki ga je dodal Matjaž. Pri vstavljanju kode uporabljajte gumb 'Code'!
Življenje je enostavno, če poznaš "The Secret".
GoldZ
Odgovori