B52
XLDnaute Junior
Bonsoir le forum,
Malgrès mes différentes recherches sur le forum, je n'arrive pas à trouver un code qui me permettrait de centrer une image dans une cellule fusionnée.
Mon image garde bien ses proportions mais n'est pas centrée horizontalement et verticalement, elle s'affiche en haut et à gauche.
Par avance merci pour votre aide
voici mon code :
Sub TextBox3_Click()
Dim Emplacement1 As Range
Dim Image1 As Picture
On Error Resume Next
ActiveSheet.Pictures.Delete 'supprimer la dernière photo crée
Set Emplacement1 = Range("A5:C21") 'emplacement des cellules fusionnées ou la photo sera affiché
Emplacement1.Select
Set Image1 = ActiveSheet.Pictures.Insert(Range("A5").Value) 'A5 est la cellule ou est indiqué le chemin de la photo
With Image1.ShapeRange
.Height = Emplacement1.Height
.Width = Emplacement1.Width
End With
End Sub
Bien cordialement
B52
Malgrès mes différentes recherches sur le forum, je n'arrive pas à trouver un code qui me permettrait de centrer une image dans une cellule fusionnée.
Mon image garde bien ses proportions mais n'est pas centrée horizontalement et verticalement, elle s'affiche en haut et à gauche.
Par avance merci pour votre aide
voici mon code :
Sub TextBox3_Click()
Dim Emplacement1 As Range
Dim Image1 As Picture
On Error Resume Next
ActiveSheet.Pictures.Delete 'supprimer la dernière photo crée
Set Emplacement1 = Range("A5:C21") 'emplacement des cellules fusionnées ou la photo sera affiché
Emplacement1.Select
Set Image1 = ActiveSheet.Pictures.Insert(Range("A5").Value) 'A5 est la cellule ou est indiqué le chemin de la photo
With Image1.ShapeRange
.Height = Emplacement1.Height
.Width = Emplacement1.Width
End With
End Sub
Bien cordialement
B52
Dernière édition: