Couper un tableau sur Excel et le coller sur une form

Le
Superman
Bonjour,

Je souhaiterais savoir si il est possible de copier un tableau sur
EXCEL et de coller celui ci sur une FORM VB6

Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4648411
Bonjour,

Private Sub UserForm_Initialize()
ChDir ActiveWorkbook.Path
With Sheets("shapeForm")
.[A1:E6].CopyPicture
.Paste Destination:=.Range("A1") 'crée un shape
Set s = .Shapes(.Shapes.Count)
s.CopyPicture
.ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste
.ChartObjects(1).Chart.Export Filename:="monimage.jpg",
FilterName:="jpg"
.Shapes(.Shapes.Count).Delete
.Shapes(.Shapes.Count).Delete
End With
Me.Image1.Picture = LoadPicture("monimage.jpg")
End Sub

http://cjoint.com/?ijrYgAF2jl

JB

On 9 août, 17:30, Superman
Bonjour,

Je souhaiterais savoir si il est possible de copier un tableau sur
EXCEL et de coller celui ci sur une FORM VB6

Merci


Publicité
Poster une réponse
Anonyme