Resize picture after copy into excel to PowerPoint (1 người xem)

[hadoan-pap]

Chào mọi người!

Em có chút khó khan rât mong mọi ng giúp ạ.

Em đã làm được phần copy Picture từ excel lên Powerpoint rồi, nhưng k làm thế nào để chỉnh cho ảnh đó vừa với khung excel... copy lên nó toàn bị tràn hết màn hình slide.

Đoạn code em như dưới ạ... Rât mong mọi người giúp em sửa đoạn code để resize dc picture đó vừa với khung slide của PowerPoint ạ.

E xin cảm ơn!

Sheet6.Range("A1:V27").Copy
Sheet3.Activate
Sheet3.Range("A1").Select
ActiveSheet.Pictures.Paste Link:=True
''Application.CutCopyMode = False
Dim PPT As Object
Dim newslide As Object
Set PPT = CreateObject("PowerPoint.Application")
Set newslide = PPT.ActivePresentation.Slides(1)
Sheet3.Shapes.SelectAll
Selection.Copy
newslide.Shapes.PasteSpecial

 

[hadoan-pap]

Sorry moi người!

Em đã xử lý dc r ạ.

Đây là đoạn code e them vào.

With PPT.ActivePresentation.Slides(1)
With .Shapes(.Shapes.Count)
.LockAspectRatio = msoTrue
.Left = 0
.Top = 0
.Height = 542
End With
End With