Office Forum

Start | Zoeken | Help | Login

Word

Scroll naar beneden

Plaatje invoegen op locatie knipperende cursor?

1.J@@ST 
19-2-2004 21:31
Junior Lid   Bekijk de profilepagina van deze gebruiker
Scroll naar bovenGoedenavond,

Ik wil graag via code een plaatje invoegen.
Het plaatje invoegen gaat prima, ben ook instaat om alle eigenschappen van het plaatje te veranderen.

Helaas lukt het mij niet om het plaatje (tekstomloop om kader) direct op de cursor in te voegen. (dit lukt wel als ik de tekstomloop instel op in tekstregel)

De code die ik nu gebruik is:
code:
InsertPicture()

Set myShape = ActiveDocument.Shapes.AddPicture(FileName:= _
"C:\blabla\Hills.bmp",_
LinkToFile:=False, SaveWithDocument:=True, Anchor:=Selection.Range)
myShape.WrapFormat.Type = wdWrapSquare

Set myShape = Nothing
End Sub

Iemand een idee?
J
2.Paul 
19-2-2004 22:51
Moderator Stuur een e-mail naar deze gebruiker  Bekijk de profilepagina van deze gebruiker
Scroll naar bovenNeem ik op met de macrorecorder:
code:
Selection.InlineShapes.AddPicture FileName:= _
"C:\blabla\Voorbeeld.jpg" _
, LinkToFile:=False, SaveWithDocument:=True

3.[anoniem] 
19-2-2004 22:57
  
Scroll naar bovenHoi Paul,

Dit is nu precies niet wat ik bedoel...(en de recorder had ik natuurlijk ook al geprobeerd )

Zoals ik in bovenstaand bericht al zei, als de teksomloop in tekstregel staat dan lukt het wel. Maar deze wil ik absoluut niet omdat dan enorme gaten in mijn tekst worden geslagen.

Ik wil tekst omloop om kader en dan plaatje invoegen op de cursor. De afstand naar text bouw ik er zelf wel in..de opties zijn geen punt.

Alleen het direct invoegen op de cursor lukt mij niet met die tekstomloop.

Thnx,
J
4.Paul 
19-2-2004 23:11
Moderator Stuur een e-mail naar deze gebruiker  Bekijk de profilepagina van deze gebruiker
Scroll naar bovenIs het niet gewoon zo dat je een tekstomloop voor een inline-object wil, wat per definitie niet mogelijk is? Om tekst om de afbeelding te laten lopen moet ie via een anker worden geplaatst (anker zit dan in de flow, niet het plaatje). Ik denk dat je moet zoeken naar een methode om de positie van Selection uit te lezen en die te vertalen naar de positie van de Shape. Positioneren van een shape kan op verschillende manieren, dat beheers je denk ik inmiddels. De positie van de cursor tov de pagina of de kantlijn vraag je op met bijv:
MsgBox Selection.Information(wdHorizontalPositionRelativeToPage)
t/m
wdVerticalPositionRelativeToTextBoundary
5.[anoniem] 
19-2-2004 23:18
  
Scroll naar bovenHoi Paul,

Ja, veel van wat je zegt, klinkt bekend in de oren. Met name het verhaal over de plaatjes problematiek. (mede de reden voor deze vraag)

Idd, normaal zet je een foto met een anker vast. Maar als je bijvoorbeeld een foto (om kader, zie eerste code) invoegd in een document, schiet ie naar de linkermarge.
Je kunt dit plaatje nu heel eenvoudig oppakken en precies neerzetten waar je wilt. (nu zie je bij weergeven verbergen geen anker)

Dus naar die staat van het object ben ik opzoek en dan eigenlijk, direct op de cursor.

Ik ga nog even lekker door frobelen, laat nog wel weten of het ei nog gevonden gaat worden.

Thnx,
J
6.[anoniem] 
19-2-2004 23:20
  
Scroll naar bovenAh, had idd weer even liggen slapen.

Ja hoor je had gelijk, na verslepen krijg ik nu ook een ankertje...vreemd niet eerder opgevallen. Wel als je het in de eigenschappen insteld.

Hmmm, dit vindt ik niet leuk.
7.Paul 
19-2-2004 23:52
Moderator Stuur een e-mail naar deze gebruiker  Bekijk de profilepagina van deze gebruiker
Scroll naar bovenIk bedoelde dus zoiets:
code:
AfstandVanafLinks = Selection.Information(wdHorizontalPositionRelativeToPage)
AfstandVanafBoven = Selection.Information(wdVerticalPositionRelativeToPage)
ActiveDocument.Shapes(1).RelativeHorizontalPosition = _
wdRelativeHorizontalPositionPage
ActiveDocument.Shapes(1).RelativeVerticalPosition = _
wdRelativeVerticalPositionPage
ActiveDocument.Shapes(1).Left = AfstandVanafLinks
ActiveDocument.Shapes(1).Top = AfstandVanafBoven

8.J@@ST 
20-2-2004 18:17
Junior Lid   Bekijk de profilepagina van deze gebruiker
Scroll naar bovenHoi Paul,

Ziet er goed uit, zal jouw methode eens proberen!

Hartstikke bedankt,
J

Reageren

Naam
OnderwerpPlaatje invoegen op locatie knipperende cursor?
Om het bericht te kunnen plaatsen moet onderstaande code worden overgetypt. Voor deze functie moeten cookies worden geaccepteerd.
Herhaal code:

Ga naar forum:
 

Stuur een e-mail naar de Administrator
psForum 2002 Paul Snip
Hosting by