Discussion :

[Otman.pro]

Bonjour à Tous ;
J'ai fais une macro qui copie/coller des chiffres et une image d'un classeur source à un classeur récapitulatif, l'opération se fasse a chaque appel du classeur source, donc il y'aura plusieurs images dans le fichier destination à savoir qu'elles sont de même nom "image 2"

J'utilise le principe de la dérnière ligne vide pour collée "image 2" dans une plage bien définie, donc je fais comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Set rgrecap = wsrecap.range("P65000").End(xlup).offset(1,-15) ' rgrecap : variable déclarée comme Range, wsrecap : feuille classeur récapitulatif
wssource.Shapes("image 2").Copy  ' wssource : feuille classeur source
wbrecap.Activate ' wbrecap : classeur récapitulatif
wsrecap.select
rgrecap.offset (1,0).select
wsrecap.paste
rgrecap.offset(1,0).select

après je modifie la taille de l'image collée avec ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
wsrecap.Shapes("image 2").select ' wsrecap : feuille calsseur récapitulatif
selection.ShapeRange.ScaleWidth0.972, msoFalse, msoScaleFromTopRight
selection.SahpeRange.ScaleHeight0.89, msoFalse, msoScaleFromBottomLeft
ActiveCell.Select

Le souci c'est quand j’exécute ce programme il modifie la taille de toutes les images collées, pourtant je veux modifier juste la dernière image collée

y'a t-il une méthode pour sélectionner et modifier la taille de la dernière image Collée et pas toutes les images à la fois ?

Je fais appel à vos lumière car je ne suis pas très doué en VBA et je vous remercie infiniment

[sophieceuzin]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MsgBox ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name

Ceuzin