สร้างสไลด์โดยใช้ Excel

ผม มีตัวอย่าง File Xls ที่ใช้สร้าง Slide Show คือโดบปกติแล้ว เรามักจะพบว่า เราสร้างกราฟหรือแผนภูมิต่างๆในโปรแกรม Excel แต่พอเราจะทำ Presentation เสนอหน้ากับเจ้านาย เราก็ Copy ไปใส่ Powerpoint ตามที่ผมเคยสอนไว้ใน Tip ก่อนหน้านี้
สำหรับ Tip นี้เป็นตัวอย่างการสร้าง Slide ด้วย Excel ล้วนๆเลยครับ

เทคนิค ก็คือ เราใช้ VBA macro ข้างล่างนี้เป็นตัวทำให้เกิดการแสดง Slide ทั้งนี้เราต้องสร้างข้อมูลที่ต้องการแสดงไว้ก่อน จากนั้นสร้างปุ่มกด แล้ว สร้าง VBA Code

Sub ChartSlideShow()
    Dim Cht As ChartObject
    Dim UserSheet As Worksheet
    Set UserSheet = ActiveSheet
    Application.DisplayFullScreen = True
    Application.DisplayAlerts = False

    For Each Cht In UserSheet.ChartObjects
        Application.ScreenUpdating = False
        ' Delete old chart sheet if it exists
        On Error Resume Next
        Charts("ChartTemp").Delete
        On Error GoTo 0
        ' Copy embedded chart and move it
        UserSheet.Activate
        Cht.Chart.ChartArea.Copy
        ActiveSheet.Paste
        ActiveChart.Location Where:=xlLocationAsNewSheet, _
           Name:="ChartTemp"
        ' Show the chart sheet and prompt for next one
        Application.ScreenUpdating = True
        If MsgBox("OK for next chart, Cancel to stop.", _
          vbQuestion + vbOKCancel) = vbCancel Then Exit For
     Next Cht
     ' Clean up
     On Error Resume Next
     Charts("ChartTemp").Delete
     On Error GoTo 0
     Application.DisplayFullScreen = False
     Application.DisplayAlerts = True
     UserSheet.Activate
End Sub

ส่วนเพื่อนๆที่อ่านแล้วงงเป็นไก่ตาแตก ไม่มีปัญญาสร้าง VBA ให้ติดตาม Web ของเราไปเรื่อยๆ ครับพี่กรณ์กำลังทำ VDO สอนฟรีสำหรับสมาชิก ตอนนี้ Download ไปศึกษากันก่อน

Excel Tools : Create Slide by Excel 

 

http://www.thaiexcelclub.com/software/313--excel--slide-show.html