HOW TO AUTO COPY CHART EXCEL TO POWER POINT

huuy guuuys...

akuuu kembaliiiiiiii *nyanyi*

oke guuyys..

kali ini gue akan membuat tutorial cara untu copy paste chart excel ke power point

cara nya sangat mudah dan codingnya juga dikit banget..

video tutorial nya bisa kalian lihat di => TUTORIAL COPY AND PASTE CHART EXCEL TO POWER POINT

atau bisa kalian lihat juga di sini..
jangan lupa di SUBSCRIBE ya guuuys..

codingnya ada dibawah..

yang pertama.. kalian harus add reference power point

lalu.. bikin tombol di excel..

lalu ketikan coding berikut..

       

Option Explicit

Private Sub CommandButton1_Click()
Dim appPpt As New PowerPoint.Application
Dim prePpt As PowerPoint.Presentation
Dim slidePpt As PowerPoint.Slide

Set prePpt = appPpt.Presentations.Add 'create new presentation
Set slidePpt = prePpt.Slides.Add(1, ppLayoutBlank) ' create new blank slide
' ini seharusnya hanya add bukan addslide
' sorry error..

Dim rng As Range
Set rng = Selection ' jadi range harus di select terlebih dahulu baru di copy
rng.CopyPicture xlScreen, xlBitmap ' copy range chart in excel as picture

slidePpt.Shapes.PasteSpecial ppPasteBitmap ' and paste on ppt as picture
slidePpt.Shapes(1).Top = 0 'karena gambar cuma 1 maka index nya isi 1 saja
slidePpt.Shapes(1).Left = 0
slidePpt.Shapes(1).Height = 200
slidePpt.Shapes(1).Width = 200

appPpt.Visible = True
appPpt.Activate

' dispose object
Set rng = Nothing
Set slidePpt = Nothing
Set prePpt = Nothing
Set appPpt = Nothing
End Sub