Discussion :

[dev81]

Comment fait on pour inserer une image dans une cellule précise d'excel?
Et surtout apres, pour redimensionner la cellule à la taille de l'image?

Voila mon code pour aller chercher l'image:

Merci d'avance pour vos réponse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub bouton_titre1_Click()
    Dim image As String
    image = Application.GetOpenFilename
    If image <> "Faux" Then
        Shapes.AddPicture image, True, True, 100, 122, 330, 246
    End If
End Sub

[SilkyRoad]

bonsoir

tu peux tester cet exemple pour la premiere partie de ta question:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub bouton_titre1_Click()
    Dim Image As Variant
    Dim L As Single, T As Single, W As Single, H As Single
 
    L = Range("B2").Left
    T = Range("B2").Top
    W = Range("B2").Width
    H = Range("B2").Height
 
    Image = Application.GetOpenFilename
    If Image <> False Then
        Feuil1.Shapes.AddPicture Image, True, True, L, T, W, H
    End If
End Sub

michel

[dev81]

Merci por cette aide, votre forum est super, les réponses sont rapides et completes.