Insertion photo à la taille d'une cellule fusionnée Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
t
tvbfl
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 25 octobre 2017
Version d'Excel : 2010

Message par tvbfl » 13 novembre 2017, 10:53

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
t
tvbfl
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 25 octobre 2017
Version d'Excel : 2010

Message par tvbfl » 13 novembre 2017, 11:30

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,
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'203
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 13 novembre 2017, 11:48

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.
t
tvbfl
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 25 octobre 2017
Version d'Excel : 2010

Message par tvbfl » 13 novembre 2017, 14:24

Bonjour,

Merci pour votre réponse, cela correspond à ce que je t'attendais
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message