insertion d'image excel

Version imprimable

28/05/2007, 11h12
philguio

insertion d'image excel

Bonjour
j'ai un petit soucis. Voila dans mon application sous vb2005 express mes résultats sont envoyés dans une feuille excel, la pas de pb. Ce que je cherches à faire c'est: si la condition A est validé, alors l'image 17.bmp doit apparaître dans la cellule A6 de mon formulaire. Je n'ai aucun pb avec du text mais avec une image et "ben dur dur???"

Je continue de chercher.
merci
@+
Phil

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim appXl As New Excel.Application
        Dim Classeur As Excel.Workbook = appXl.Workbooks.Add
        Dim Feuille As Excel.Worksheet = DirectCast(Classeur.Worksheets.Item(1), Excel.Worksheet)
        Dim polo As Int32 = 2
        If polo > 1 Then
            Dim Plage As Excel.Range = DirectCast(Feuille.Cells(6, 1), Excel.Range)
            Feuille.Shapes.AddPicture("D:\svg\developpez\bidou.jpg", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue, CSng(Plage.Left), CSng(Plage.Top), 100, 100)
            appXl.Visible = True
        End If
 
    End Sub

28/05/2007, 12h31
philguio

Merci , ça marche
le seul petit soucis maintenant il faut que l'image tienne dans une cellule, et la elle est en dehors, faut il travailler l'image ou definir le cadre de la cellule.

@+
Phil
28/05/2007, 17h14
bidou

il faut changer 100 et 100 dans mon exemple qui représente la hauteur et la largeur
28/05/2007, 18h09
philguio
merci
mais peut on utiliser cette solution pour l'ajouter dans une cellule nomée G8 par exemple,
Code:

1 2 .Range("G18").Value = a16
et ou a16 correspondrait à une condition if

et en plus je cherche a l'intégrer dans une feuille bien prcise
Code:

1 2 Workbooks.Open("C:\FeuilleMatchA.xls")
je continue de chercher
@+
phil
29/05/2007, 08h06
bidou

je n'ai pas compris :(
29/05/2007, 09h14
philguio

excuse moi, effectivement peut etre pas claire

Je cherche a inserer l'image dans une cellule precise (ex A5) d'une feuille qui est appelée par mon application (ex Feuille de match A)

Jusqu'a présent j'utilise sans pb des fonctions me permettant de réaliser des états sous excel, avec ce que je donne plus haut.

Merci
@+
Phil