Créer une image pour la mettre dans un (image UserForm)

[bloomby]

Bonjour à tous,

Je désire créer une image,
pour ensuite l'afficher dans un userform

j'ai un code pour créer un gif, je ne sais pas si cela peu aider
ou s'il y a une meilleure solution

Sub Export_Image_de_Plage()
Dim ndf As String
Dim Source As Range, Gr As Object
ndf = ActiveWorkbook.Path & "\Confirmation de " & [B9] & ".gif"
Set Source = Sheets("Confirmation de réservation").Range("A9:D34")
Source.CopyPicture xlScreen, xlPicture
 Set Gr = Sheets("Confirmation de réservation").ChartObjects.Add(0, 0, Source.Width, _
 Source.Height)
 Gr.Chart.Paste
 Gr.Chart.Export ndf, "GIF"
 Gr.Delete
 Set Gr = Nothing
 Set Source = Nothing
 End Sub

merci de votre aide

 

[bloomby]

Re : Créer une image pour la mettre dans un (image UserForm)

Bonjours aux interessés,

après une deuxième recherche j'ai trouvé un fil très interessant
avec un fichier de TI qui fait ce que je recherche,


Bloomby