Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Couper un tableau sur Excel et le coller sur une form

1 réponse
Avatar
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

1 réponse

Avatar
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