Bonjour à tous,
Je sollicite votre aide concernant l'insertion d'image et le redimensionnement à la taille d'une cellule fusionnée.
Voici mon code:
Private Sub CommandButton4_Click()
ChoixImage1 = Application.GetOpenFileName(".jpg,*.jpg,.gif,*.gif,.jpeg,*.jpeg")
If ChoixImage1 = "" Then Exit Sub
Set c = Sheets("Fiche REX").Range("J44").MergeArea
With Sheets("Fiche REX").Pictures.Insert(ChoixImage1)
.LockAspectRatio = False
.Top = c.Top
.Height = c.Height
.Width = c.Width
End With
End Sub
Quand j'exécute ma macro, l'image se place dans l'ActiveCell et elle ne se redimensionne pas. L'image doit se coller dans la cellule J44 qui est une cellule fusionnée de la taille J44 à N58.
j'ai cherché une solution à mon problème sans rien trouver. J'espère que l'on pourra m'aider!
Merci par avance de votre aide!
Bonne journée