copy แล้วไปวางที่ file powerpoint โดยใช้มาโคร

[March201711]

ถ้าเราจะ copy จาก file excel ไป paste picture ที่ file ใหม่เป็น file powerpoint เราสามารถทำได้ไหมค่ะ ลอง record marco แล้วทำ ไม่ได้น่ะค่ะ เพราะต้องทำเป็นประจำทุกวันค่ะ

[March201711]

file excel ค่ะ

[snasui]

ไม่พบ Macro ในไฟล์ที่แนบมาครับ

[March201711]

แนบมาให้ใหม่ค่ะ

[snasui]

Code ที่แนบมาไม่พบว่ามีการวางข้อมูลที่ PowerPoint ลองศึกษา Code จาก Link นี้ครับ https://www.thespreadsheetguru.com/blog ... t-with-vba

[March201711]

ลองทำแล้วค่ะ แต่ติดปัญหาการดึงเปิดfile ของ powerpoint อยากให้ดึงfileที่เก็บไว้ที่ drive c ชื่อ test2 ต้องปรับแก้ code vba อย่างไรคะ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
    'If PowerPoint is not already open then open PowerPoint
      If PowerPointApp Is Nothing Then Set PowerPointApp = CreateObject(class:="PowerPoint.Application")
      myDestination = "C:\Test2.pptx"
      Set myPresentation = PowerPointApp.Presentations.Open(myDestination)
    
    'Handle if the PowerPoint Application is not found
      If Err.Number = 429 Then
        MsgBox "PowerPoint could not be found, aborting."
        Exit Sub
      End If

  On Error GoTo 0

'Optimize Code
  Application.ScreenUpdating = False
  
'Create a New Presentation
'  Set myPresentation = PowerPointApp.Presentations.Add

'Add a slide to the Presentation
  Set mySlide = myPresentation.Slides(1) '.Add(1, 11) '11 = ppLayoutTitleOnly

'Other code

[March201711]

ลองแล้วค่ะ ไม่ได้ มันเปิดเป็น powerpoint ให้ใหม่เลยค่ะ

ปล. ขอเปลี่ยนที่ย้ายเป็นที่ drive D นะค่ะ เพราะ drive cfileเยอะหาไม่เจอค่ะ

[snasui]

Code ในไฟล์ล่าสุดไม่ตรงกับที่ผมแก้ไขไปให้ครับ

[March201711]

ได้แล้วค่ะ แต่ถามนิดนึงค่ะ ถ้าจะให้ภาพที่นำมาวางใน powerpoint ให้พอดีกับทั้งขอบบนและล่าง ซ้ายและขวา ต้องปรับอย่างไรคะ

[snasui]

กรุณาปรับมาเองก่อน ติดแล้วค่อยถามกันต่อครับ

[March201711]

ได้แล้วค่ะ ขอบคุณอาจารย์มากค่ะ