Centrer une image dans une cellule fusionnée
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:
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
