Bonjour à Vous,
Comme dans la procédure de copie Image d'un graphique pour l'obtenir dans un USF, je souhaiterais obtenir un tableau (ex : A1:E25) en visu dans un USF.
Voici une partie du code d'initialisation de mon USF quand j'apporte un graphique que je voudrais adapter au tableau :
Private Sub UserForm_Initialize()
Sheets('BDDY').Activate
' Range('A1').Select 'uniquement pour Excel97
With ActiveSheet
NbGraph = .ChartObjects.Count
GraphActif = 1
.ChartObjects(GraphActif).CopyPicture xlScreen, xlPicture
Set Image1.Picture = PastePicture(xlPicture)
End With
End Sub
Merci et à bientôt....
Message édité par: xc2one, à: 07/03/2005 17:06
Comme dans la procédure de copie Image d'un graphique pour l'obtenir dans un USF, je souhaiterais obtenir un tableau (ex : A1:E25) en visu dans un USF.
Voici une partie du code d'initialisation de mon USF quand j'apporte un graphique que je voudrais adapter au tableau :
Private Sub UserForm_Initialize()
Sheets('BDDY').Activate
' Range('A1').Select 'uniquement pour Excel97
With ActiveSheet
NbGraph = .ChartObjects.Count
GraphActif = 1
.ChartObjects(GraphActif).CopyPicture xlScreen, xlPicture
Set Image1.Picture = PastePicture(xlPicture)
End With
End Sub
Merci et à bientôt....
Message édité par: xc2one, à: 07/03/2005 17:06