Copie d'image avec cadrage vertical

Version imprimable

Bonjour,

j'ai écrit une macro de test pour copier une image puis la cadrer verticalement à partir de mes lectures sur internet:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub affichLogo() Dim logo As Shape, pdf As Worksheet, cadre As Variant Set pdf = Sheets("test") Set logo = pdf.Shapes("event") logo.Copy pdf.Range("C1").Select pdf.Paste Set cadre = Range("C1:H1") With cadre logo.Top = .Top + (.Height / 2) - (logo.Height / 2) 'Centre verticalement End With End Sub
Le problème est que c'est la photo d'origine qui est cadrée et pas la copie (normal elle s'appelle "event" mais on ne connait pas le nom de la photo copiée ?)

On doit pouvoir cadrer en meme temps que la copie ?

merci d'un coup de main

26/10/2019, 17h38
mercatog

Après le paste ajoute

Code:

Set logo=pdf.shapes(pdf.shapes.count)

Merci c'est comme ça qu'il fallait faire

maintenant je vais essayer de comprendre ce que fait cette ligne... Comment elle permet de pointer sur l'image copiée...

La macro qui marche bien :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub affichLogo() Dim logo As Shape, pdf As Worksheet, cadre As Variant Set pdf = Sheets("Test") Set logo = pdf.Shapes("event") logo.Copy pdf.Range("C1").Select pdf.Paste Set logo = pdf.Shapes(pdf.Shapes.Count) Set cadre = Range("C1") With cadre logo.Top = .Top + (.Height / 2) - (logo.Height / 2) 'Centre verticalement End With End Sub
J'ai mis

Code:

cadre as Variant

Pour être puriste quel type faudrait-il indiquer ?