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