Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
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 wrote:
Bonjour,
Je souhaiterais savoir si il est possible de copier un tableau sur EXCEL et de coller celui ci sur une FORM VB6
Merci
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 <john.am...@free.fr> wrote:
Bonjour,
Je souhaiterais savoir si il est possible de copier un tableau sur
EXCEL et de coller celui ci sur une FORM VB6
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 wrote:
Bonjour,
Je souhaiterais savoir si il est possible de copier un tableau sur EXCEL et de coller celui ci sur une FORM VB6