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
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.
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.