Discussion :

[retraite83]

Bonjour,

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

Code :

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

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

[mercatog]

Après le paste ajoute

Code :

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

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

[retraite83]

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 :

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

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 :

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

cadre as Variant

Pour être puriste quel type faudrait-il indiquer ?