Discussion :

[retraite83]

Bonjour

je veux centrer (en hauteur et largeur) une image dans une plage de cellule fusionnées (B17 à AI17). La photo se trouve en haut à gauche sur la cellule (B17).
j'ai écrit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For Each sh In pdf.Shapes
    If sh.Type = msoPicture Then
        If sh.TopLeftCell.Address = "$B$17" Then
            With pdf.Shapes(sh.Name)
                .Top = pdf.Range("B17").Top + (pdf.Range("B17").Height - .Height) / 2
                .Left = pdf.Range("B17").Left + (pdf.Range("B17").Width - .Width) / 2
            End With
            Exit For
        End If
    End If
Next

Le problème est que le calcul se fait sur la largeur de la colonne B17 et non sur le total des largeur des colonnes B17 à AI17.

Je voudrai centrer par rapport au total des largeurs mais je piétine dans la syntaxe de ce qu'il faut écrire

[EricDgn]

Bonjour,

Essayer ceci:

Code :

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

1
2
                .Top = (pdf.Range("B17").Top + pdf.Range("AI18").Top - .Height) / 2
                .Left = (pdf.Range("B17").Left + pdf.Range("AJ17").Left - .Width) / 2

Cordialement.