VBA Afficher un Objet dans un Userform
Bonjour,
J'arrive actuellement à afficher dans mes histogrammes dans un userform avec le code suivent.
Private Sub Bouton_01_Click()
' Déclaration variables
Dim Feuille As Worksheet
Dim Dossier As String
Dim MonGraphique As Object
On Error GoTo 1
' Affectation des variables
Set Feuille = Sheets("G1") ' On selectionne le nom de la feuille ou se trouve le graphique
Set MonGraphique = Feuille.ChartObjects(1).Chart 'On affecte le nom du graphique / 1 numéro du graphique
' On choisi ou sauvegarder le graphique en tant qu'image
Dossier = "C:ImageGraph3.jpg"
MonGraphique.Export Dossier ' Exporte le graphique dans le dossier
Me.imgGraphique.Picture = LoadPicture(Dossier) ' On charge l'image du graphique
1
End Sub
ChartObjects ne fonctionnant pas pour cela, je souhaiterai afficher une forme classique (Rectangle dans lequel j'ai inséré des informations).
Je vous remercie par avance.
Bonjour,
voici un exemple pour exporter en fichier jpg, une forme ou image placer sur une feuille de calcul
Sub Shape_Export()
Application.ScreenUpdating = True
Set sh = ActiveSheet.Shapes(1) 'adapter au nom de l'onglet et au nom de la forme
sh.Copy
'Définit le nom et le lieu de stockage de l'image
monImage = "C:\Users\isabelle\Documents\test\test.jpg" 'adapter
'Colle l'image dans un graphique
With ActiveSheet.ChartObjects.Add(0, 0, sh.Width, sh.Height).Chart 'adapter
.Paste
'Sauvegarde l'image du graphique au format jpg
.Export monImage, "jpg"
End With
'Supprime le graphique et la forme.
ActiveSheet.ChartObjects(1).Delete
Application.ScreenUpdating = True
End Sub