afbeelding roteren

Status
Niet open voor verdere reacties.
P

peetpjotter1000

Gebruiker
Lid geworden
7 mrt 2009
Berichten
11
Welk genie heeft antwoord op mijn vraag

Ik gebruik voor het invoeren van een afbeelding in mijn werkblad de volgende code
Code: 
Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    On Error GoTo Leeg
    Image1.Picture = LoadPicture(Application.GetOpenFilename)
    Exit Sub
    
Leeg:
    If Err.Number <> 53 Then
        MsgBox "Fout: " & Err.Number & vbCrLf & Err.Description
    End If
End Sub

Het komt voor dat een afbeelding gedraaid in de sheet verschijnt.
nu wil ik een knop toevoegen die het mogelijk maakt de afbeelding te draaien in de juiste positie

wat voor script kan ik daarvoor gebruiken?

ik had al geprobeerd met
ActiveSheet.Pictures("Image1").ShapeRange.Rotation = 90

maar denk dat ik hiermee de verkeerde weg insla.
Ben helaas geen genie met vba.
 
Plaats een voorbeeld document.
 
beste edmoor,

Ik bedoel dat als er een foto ingevoegd word dat deze soms gedraaid word geplaatst ipv recht.

(landscape of portrait).
Ik weet niet waar dat aan ligt.
op de computer staat de foto recht, als ik hem invoeg dan word de foto 90graden gedraaid.

Ik hoop dat er een stukje code bestaat waarmee je de activex image een slag kan draaien zodat deze recht word weergegeven.

dit is echt een vervelende kwestie waar ik niet uitkom

mijn bedoeling is dus een knop aanmaken waardoor de afbeelding 90 graden gedraaid kan worden.

hoop dat jij me kan helpen net zoals de andere keren

groet,
Peter
 
Een plaatje in een Image object kan je niet draaien. Een direct in het werkblad ingevoegd plaatje wel.
 
Aardig idee. Het plaatje oppakken, invoegen als image object in een sheet, draaien, opslaan als nieuw plaatje en die vervolgens laden :)
 
Ik heb toch maar even een naschrift geplaatst. :d
 
Er gebeurt niets met het originele plaatje. Geen risico dus :)
 
Ik zie het, de gedraaide foto wordt geplaatst in de Tempfolder.
 
Waarom voeg niet een afbeelding direkt in in je werkblad ? (shapes.addpicture)
 
heb geprobeerd het plaatje op te pakken, deze te plakken in een tijdelijk werkblad.
Je kan het plaatje nu draaien. Maar hoe krijg je hem weer terug als activex image bestand.
 
Ik heb het voor je in een bestandje gezet.

Met 'sub hsv()' open je het Userform.
Even de verwijzing naar het plaatje aanpassen.
Code: 
"C:\Users\hsv\pictures\MB-2624 LAK.jpg"

Staat twee keer in de module van het form.
 

Bijlagen

  • Roteren van een foto.xlsb
    22,4 KB · Weergaven: 50
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan