[VB] Afbeelding draaien in Word

[Verwijderd]

Ik wou dus via VBA een figuur 90° draaien.
Dus zocht ik in de helpt naar "rotate".
Daar vond ik bij de shapes (en Inlineshapes) iets over .IncrementRotation(90)

Deze functioneert niet, ook niet als ik .Rotation(90) neem.
Blijkbaar kunnen deze functies niet toegepast worden op een selectie of inlineshapes.

De fout die ik krijg is de volgende:

------------------------------------------------------------
Compileerfout:

Kan de methode of het gegevenslid niet vinden
------------------------------------------------------------

Kan er iemand mij vertellen hoe ik deze figuur toch gedraait krijg of wat ik verkeerd doe?

[DPLuS]

Probeer eens een plaatje te draaien in Word terwijl je een macro opneemt.
En kijk daarna eens wat voor een code die macro gegenereerd heeft.

[Verwijderd]

DPLuS schreef op 04 augustus 2004 @ 17:37:
Probeer eens een plaatje te draaien in Word terwijl je een macro opneemt.
En kijk daarna eens wat voor een code die macro gegenereerd heeft.

Mja das het rare:
dit lukt gewoonweg niet!
Kan iemand dit ook eens proberen?
Ik gebruik Word 2000

[ Voor 61% gewijzigd door Verwijderd op 04-08-2004 17:45 ]

[Verwijderd]

Als ik een plaatje roteer terwijl ik een macro opneem krijgt de macro de volgende code:

code:

    Selection.ShapeRange.IncrementRotation -90#

Dat was naar links.

[Verwijderd]

Verwijderd schreef op 04 augustus 2004 @ 17:52:
Als ik een plaatje roteer terwijl ik een macro opneem krijgt de macro de volgende code:

code:

    Selection.ShapeRange.IncrementRotation -90#

Dat was naar links.

Als ik deze code erbij zet, geeft hij:
Opdracht mislukt

Was dit echt een foto / afbeelding of was dit een shape uit Word zelf?
Kan je de hele code posten plz?

[ Voor 34% gewijzigd door Verwijderd op 04-08-2004 18:45 ]

[DPLuS]

Gewone bitmaps (plaatjes) gaan schijnbaar niet:

[Uit de MS Word Help]

Ik kan een figuur niet draaien

U kunt alleen tekenobjecten spiegelen of draaien. Als u een object naar een
tekenobject kunt converteren door de groepering op te heffen en vervolgens
weer te herstellen, kunt u het object spiegelen of draaien. Een bitmap
kan niet naar een
tekenobject worden geconverteerd.
* U converteert een object door op Groep opheffen te klikken in het
menu Tekenen en vervolgens op Groeperen te klikken.

* Als u het object niet kunt converteren, opent u het in een ander
tekenprogramma. Draai het object in dat programma en sla het vervolgens op.
Als u het object opnieuw opent in Word, is het gedraaid.


Tekenobjecten 90 graden naar rechts draaien
Selecteer het object dat u wilt draaien.

Klik op Tekenen op de werkbalk
Tekenen, wijs
Draaien of spiegelen aan en klik vervolgens op Rechtsom draaien.

[/MS Word Help]

Visual Basic:

Sub Macro1()
'
' Macro1 Macro
' Macro opgenomen op 4-8-2004 door Patrick
'
    ActiveDocument.Shapes.AddShape(msoShapeRectangle, 142.85, 484.85, 180#,
_
        144#).Select
    Selection.ShapeRange.IncrementRotation -90#
End Sub

[Verwijderd]

DPLuS schreef op 04 augustus 2004 @ 23:39:
Gewone bitmaps (plaatjes) gaan schijnbaar niet:

[Uit de MS Word Help]

Ik kan een figuur niet draaien

U kunt alleen tekenobjecten spiegelen of draaien. Als u een object naar een
tekenobject kunt converteren door de groepering op te heffen en vervolgens
weer te herstellen, kunt u het object spiegelen of draaien. Een bitmap
kan niet naar een
tekenobject worden geconverteerd.
* U converteert een object door op Groep opheffen te klikken in het
menu Tekenen en vervolgens op Groeperen te klikken.

* Als u het object niet kunt converteren, opent u het in een ander
tekenprogramma. Draai het object in dat programma en sla het vervolgens op.
Als u het object opnieuw opent in Word, is het gedraaid.


Tekenobjecten 90 graden naar rechts draaien
Selecteer het object dat u wilt draaien.

Klik op Tekenen op de werkbalk
Tekenen, wijs
Draaien of spiegelen aan en klik vervolgens op Rechtsom draaien.

[/MS Word Help]

Ja dit had ik ook al gevonden,
maar bestaat er geen omweg?
Hem eerst omzetten naar een ander type ofzo?

[DPLuS]

Draai je plaatje gewoon in Photoshop of mspaint.
Anders gaat gewoonweg niet...

[akoster]

Met een omweg kan het als volgt :

In word : <invoegen> - <object>

uit het lijstje kies je dan "Microsoft Photo Editor - foto"

druk op OK

in de photo editor open je het bestandje dat je wilt invoegen, of scan je wat oid

je kiest dan via <image> - <rotate> de gewenste hoek uit

en met <File> - <Exit and return to ...>

heb je het plaatje gedraaid toegevoegd.
netjes draaien met 45 graden gaat prima hier, draaien over een minder strakke hoek van bijvoorbeeld 28 graden wil nog wel eens mislopen.

[Verwijderd]

_Arnie_ schreef op 05 augustus 2004 @ 16:58:
Met een omweg kan het als volgt :

In word : <invoegen> - <object>

uit het lijstje kies je dan "Microsoft Photo Editor - foto"

druk op OK

in de photo editor open je het bestandje dat je wilt invoegen, of scan je wat oid

je kiest dan via <image> - <rotate> de gewenste hoek uit

en met <File> - <Exit and return to ...>

heb je het plaatje gedraaid toegevoegd.
netjes draaien met 45 graden gaat prima hier, draaien over een minder strakke hoek van bijvoorbeeld 28 graden wil nog wel eens mislopen.

Mja dit is inderdaad handig als je er maar 20 moet doen,
maar ik moet er zo 1000 openen

Toch bedankt!

[DPLuS]

Photoshop kent toch ook macro's, is het niet?