[VB6] Insérer une image dans Excel

Version imprimable

19/04/2006, 21h48
ShortcutZ

[VB6] Insérer une image dans Excel
Bonjour à tous,

je cherche à insérer une image dans Excel à partir de VB6 tout en définissant la cellule où l'image prendra place et la grosseur de l'image.

Présentement j'ai ceci :
Code:

1 2 3 4 Dim oPicture as Picture Set oPicture = oSheet.Pictures.Insert(txt_photoPath.Text)
mais je reçois un message d'erreur Type mismatch. Par contre, en ouvrant le fichier Excel, je vois mon image.

bonsoir

j'espere que cet exemple pourra t'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Private Sub Command1_Click()
Dim App As Object
Dim Wb As Object
Dim Image As Object, Emplacement As Object
 
Set App = CreateObject("Excel.Application")
App.Visible = True
Set Wb = App.Workbooks.Add(1)
 
Wb.Sheets(1).Pictures.Insert(txt_photoPath.Text).Select
 
Set Emplacement = Wb.Sheets(1).Range("D3:E8")
 
Set Image = Wb.Sheets(1).DrawingObjects(1)
 
With Image.ShapeRange
.Name = "cible"
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
 
End Sub

bonne soiree
michel

20/04/2006, 01h23
ShortcutZ

Ça fonctionne très bien !!! Woohhooo !

Juste un détail par contre, le fait de mettre cette image enlève toutes les images que j'avais mis manuellement dans excel.
20/04/2006, 05h40
SilkyRoad

bonjour

je ne comprend pas ta derniere remarque car cet exemple crée un nouveau classeur pour insérer l'image

bonne journée
michel
20/04/2006, 12h33
Vesta

Lance l'enregistrement d'une macro et regarde ce que ca fait...
20/04/2006, 14h40
Vesta

Enfin je veux dire tu lance l'enregistrement d'une macro, tu insère une image à la main puis tu met fin à l'enregistrement de la macro et tu vas voir ce kil y a dans le code (dans le module) et la tu change ce que tu veux...
20/04/2006, 15h29
ShortcutZ

Citation:

je ne comprend pas ta derniere remarque car cet exemple crée un nouveau classeur pour insérer l'image

Oui effectivement, mais je me suis basé sur ce code pour l'adapter à mon appli. Je veux ajouter du texte et une image (photo) à un formulaire ayant déjà des images fait sous excel (me servant de modèle finalement).

Citation:

Enfin je veux dire tu lance l'enregistrement d'une macro, tu insère une image à la main puis tu met fin à l'enregistrement de la macro et tu vas voir ce kil y a dans le code (dans le module) et la tu change ce que tu veux...

Je suis pas sûr de savoir comment faire ca, mais je vais y jetter un coup d'oeil.
20/04/2006, 15h30
Vesta

Regarde et si ca va pas dis moi...
20/04/2006, 15h35
ShortcutZ

OK j'ai trouvé comment enregistrer et modifier un macro sous excel. Pas difficile et très pratique, je crois que ça va servir souvent. Je fait des tests durant la journée et je vais poster les résultats.

Merci
20/04/2006, 15h39
Vesta

Non c très pratique de rien :p