manipuler une image avec VBA excel

[daniel_dhaini]

Bonjour tous le monde,

j ai un probleme ?
je travaille sur un programme de calcul en VBA qui utilise beaucoup d'image
le but c est de:
-selectionnner une image a travers un chemin bien defini
-copier l'image dans une variable
-la coller dans une cellule excel
-aprés avoir imprimer le resultat je doit supprimer cette image au demarage du programme .


c'est tout


:side:

Meric d'avance

 

[Jam]

Salut Daniel,

Ce bout de code (trouvé sur le net) permet d'insérer une image dans n'importe quelle cellule d'une feuille. Les paramètres CenterH et CenterV permettent de centrer l'image horizontalement et/ou Verticalement.

'Indiquer le chemin de l'image ici
Public Const GifImage As String = _
'C:\\temp\\monImage.gif'

'Procédure permettant d'appeler la sub principale.
Sub TestInsertPicture()
    InsertPicture GifImage, Range('D10'), True, True
End Sub

'Procédure d'insertion de l'image
Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range)
' inserts a picture and resizes it to fit the TargetCells range
Dim p As Object, t As Double, l As Double, w As Double, h As Double
    If TypeName(ActiveSheet) <> 'Worksheet' Then Exit Sub
    If Dir(PictureFileName) = '' Then Exit Sub
    ' import picture
    Set p = ActiveSheet.Pictures.Insert(PictureFileName)
    ' determine positions
    With TargetCells
        t = .Top
        l = .Left
        w = .Offset(0, .Columns.Count).Left - .Left
        h = .Offset(.Rows.Count, 0).Top - .Top
    End With
    ' position picture
    With p
        .Top = t
        .Left = l
        .Width = w
        .Height = h
    End With
    Set p = Nothing
End Sub

Bon courage

Message édité par: jam, à: 10/11/2005 20:09

Message édité par: jam, à: 10/11/2005 20:10