Problème d'insertion d'une image

Version imprimable

30/01/2012, 10h51
Marin d'Eau Douce

Problème d'insertion d'une image

Bonjour,

Je veux ajouter une image dans la première case de mon fichier Excel. J'essaye de faire ça mais ça ne fonctionne pas :

Code:

xlApp.Worksheets("Synthèse actions").Cells(1, 1).Pictures.Insert(cheminImage)

J'ai essayé sans le Cells(1, 1) ça ne marche pas non plus.

Le chemin est pourtant bon et aucune image dans le fichier Excel. Comment puis-je faire ?
J'ai essayé différents codes sur internet et j'ai retrouvé fréquemment le même code que le mien mais ça ne marche pas.

Cordialement,

Bonjour,

Pour un autre sujet (voir exemple #12), le code suivant permet de faire une insertion d'image à une certaine plage de la feuille courante.

Charge l'image <filename> dans la plage de cellule <r>, et lui donne le nom <PictName>

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub LoadPict(PictName As String, filename As String, r As Range)
    If DoesPictExist(PictName) Then
        ActiveSheet.Pictures(PictName).Delete
    End If
 
    With ActiveSheet.Pictures.Insert(filename)
        .Name = PictName
        .Left = r.Left + 1
        .Top = r.Top
        .Width = r.Cells(1, r.Columns.Count).Left - r.Left + r.Columns(1).Width - 1
        .Height = r.Cells(r.Rows.Count, 1).Top - r.Top + r.Rows(r.Rows.Count).Height
    End With
End Sub

Fonction vérifiant l'existance d'une image de même nom dans le classeur.

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Function DoesPictExist(PictName As String) As Boolean
    DoesPictExist = False
 
    Dim p As Object
    For Each p In Pictures
        If p.Name = PictName Then
            DoesPictExist = True
            Exit For
        End If
    Next p
End Function

30/01/2012, 13h13
Marin d'Eau Douce

Bonjour,

J'ai trouvé la solution à mon problème. Je voulais insérer une image PNG et Excel n'accepte pas ce format. En revanche avec un JPG ça marche. C'est bizarre car en VBA Access je pouvais gérer les PNG.

J'ai du coup une autre question, la taille de mon image est réduite, savez-vous comment lui donner sa taille réelle ?

Cordialement,
30/01/2012, 13h24
BlueMonkey

Re.

Citation:

la taille de mon image est réduite, savez-vous comment lui donner sa taille réelle ?

En mettant en commentaire les lignes 10 et 11 (Width et Height)
de la fonction LoadPict envoyé précédemment.

Ou bien si une autre fonction est utilisée, en insérant l'image dans la feuille,

Code:

Worksheets("Synthèse actions").Pictures.Insert(cheminImage)

et pas dans une cellule.

Code:

Worksheets("Synthèse actions").Cells(1, 1).Pictures.Insert(cheminImage)