Discussion :

[ShortcutZ]

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 :

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

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.

[SilkyRoad]

bonsoir


j'espere que cet exemple pourra t'aider

Code :

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

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

[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.

[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

[Vesta]

Lance l'enregistrement d'une macro et regarde ce que ca fait...

[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...

[ShortcutZ]

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).

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.

[Vesta]

Regarde et si ca va pas dis moi...

[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

[Vesta]

Non c très pratique de rien :p