Insertion photo à la taille d'une cellule fusionnée

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

re,

j'ai changé une partie du code pour la selection de la cellule :

    Sheets("Fiche REX").Range("J44").Select
    With Sheets("Fiche REX").Pictures.Insert(ChoixImage1)
        .LockAspectRatio = True
        .Top = Selection.Top
        .Height = Selection.Height
        .Width = Selection.Width
    End With

Ca marche pour placer l'image à l'endroit voulu, par contre, même problème avec le redimensionnement. La contrainte se fait que sur la largeur mais aucune contrainte est faite sur la hauteur de l'image. Une solution ?

Merci,

Bonjour,

Essaie ainsi :

Private Sub CommandButton4_Click()
    Dim ChoixImage1, c As Range
    ChoixImage1 = Application.GetOpenFilename(".jpg,*.jpg,.gif,*.gif,.jpeg,*.jpeg")
    If ChoixImage1 = "" Then Exit Sub
    Set c = Sheets("Fiche REX").Range("J44").MergeArea
    Sheets("Fiche REX").Shapes.AddPicture ChoixImage1, False, True, c.Left, c.Top, c.Width, c.Height
End Sub

Cordialement.

Bonjour,

Merci pour votre réponse, cela correspond à ce que je t'attendais

Rechercher des sujets similaires à "insertion photo taille fusionnee"