Rognage image VBA

Bonjour, à tous et merci d'avance pour votre aide.

Je cherche a rogner une image j'ai essayé avec "croptop" et "cropleft" je n'y arrive pas.

Pouvez vous m'aider?

je met ci dessous le code dans lequel j'ai besoin d’intégrer cette fonction.

UserForm1.MultiPage1.Value = 0
Me.MultiPage1.Value = 0
Me.Repaint
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
With ActiveSheet
.Paste
p = .Shapes.Count
.Shapes(p).Top = .Range("a47").Top
.Shapes(p).Left = .Range("a47").Left
.Shapes(p).Height = 300
.Shapes(p).Width = 400

End With

d'avance merci

Bonjour,

Chez moi le rognage marche parfaitement avec CropLeft et CropTop :

Sub Rognagne()

    Set oShape = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)

    oShape.PictureFormat.CropLeft = 50
    oShape.PictureFormat.CropTop = 50

End Sub

Bonjour et merci

pouvez vous m'indiquer ou je dois intégrer ce code dans le miens. si je fais un copier coller du votre dans le mien cela ne fonctionne pas et copie le texte du code dans la cellule A47.

J'avoue que je ne comprend pas ce type de codage et je ne suis pas in professionnel du codage désolé.

C'est le problème quand on copie/colle des codes sur internet sans en comprendre les mécanismes... Tu ferais gagner du temps et pour toi et pour les gens du forum en t'y penchant en tout petit peu! Le langage est simple, pas besoin d'être un professionnel du codage pour le comprendre (j'en suis la preuve !).

En essayant de bricoler avec ton code donnée :

UserForm1.MultiPage1.Value = 0
Me.MultiPage1.Value = 0
Me.Repaint
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
With ActiveSheet
.Paste
p = .Shapes.Count
.Shapes(p).PictureFormat.CropLeft = 50
.Shapes(p).PictureFormat.CropTop = 50
End With

Si ça ne marche pas, joint un fichier anonymisé, ça sera plus simple

Baboutz

Bonjour et encore merci

difficile de mettre un fichier anonymisé le fichier originel fais 12000 ko....

je comprend en substance le code "formule de calcul" ," recherche de valeur" mais oui j'avoue le traitement d'image j'ai du mal désolé ...

aprés modification et intégration des lignes crop... il me copie le code dans la cellule et fais planter le programme.

Salut,

Pourrais-tu mettre un fichier avec juste le code alors ? Ou un fichier avec des lignes en moins ? Il existe cet utilitaire pour anonymiser.

Car là, difficile de t'aider sans fichier, ce que j'ai fait marche très bien chez moi...

C'est bien une image que tu as inséré que tu essaies de rogner ?

Bonjour et merci j'ai finalement réussi à faire mon rognage via:

'Selection.ShapeRange.PictureFormat.CropTop = 280
'Selection.ShapeRange.PictureFormat.CropLeft = 380

donc merci mais je me suis aperçu d'un autre probléme je vais donc clore ce sujet et en ouvrir un autre...

Ah okay, super !