懵逼小白在线求助，excel自动转ppt

简小白

ppt自动选取excel表格内容

简小白

Sub CopyRangeToPPT()
    '定义Excel和PowerPoint对象
    Dim rng As Range
    Dim PowerPointApp As Object
    Dim myPresentation As Object
    Dim mySlide As Object
    Dim myShape As Object

    '设置要复制的范围
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:B10")

    '检查是否已经打开了PowerPoint
    On Error Resume Next
    Set PowerPointApp = GetObject(class:="PowerPoint.Application")
    Err.Clear
    If PowerPointApp Is Nothing Then Set PowerPointApp = CreateObject(class:="PowerPoint.Application")
    If Err.Number = 429 Then
        MsgBox "无法启动PowerPoint。"
        Exit Sub
    End If
    On Error GoTo 0

    '检查是否有一个演示文稿已经打开
    If PowerPointApp.Presentations.Count = 0 Then
        Set myPresentation = PowerPointApp.Presentations.Add
    Else
        Set myPresentation = PowerPointApp.ActivePresentation
    End If

    '在PowerPoint中新建一页幻灯片
    Set mySlide = myPresentation.Slides.Add(myPresentation.Slides.Count + 1, 12) '12 = ppLayoutBlank

    '复制Excel范围
    rng.Copy

    '粘贴到PowerPoint并设置位置和大小
    Set myShape = mySlide.Shapes.PasteSpecial(DataType:=2) '2 = ppPasteEnhancedMetafile
    Set myShape = myShape(1)

    '设置图片位置
    myShape.Left = 300
    myShape.Top = 50

    '清除剪贴板
    Application.CutCopyMode = False
End Sub

可做参考

perfect131

可以搞         

简小白

perfect131 发表于 2024-7-21 13:21
可以搞

大佬，怎么说

perfect131

简小白 发表于 2024-7-21 16:31
大佬，怎么说

附件呢？？？

简小白

perfect131 发表于 2024-7-21 16:45
附件呢？？？

这个是一个问题，不需要附件就可以操作

aman1516

单元格区域导出为图片，图片插入到PPT
一个化成两个问题，论坛都有答案代码
搜搜就有了

简小白

aman1516 发表于 2024-7-22 00:18
单元格区域导出为图片，图片插入到PPT
一个化成两个问题，论坛都有答案代码
搜搜就有了

对的，就是这个意思

边缘码农

这个东西，需要理顺思路，需要考虑的东西比较多。在实际工作中也会遇到。

简小白

边缘码农 发表于 2024-7-22 08:21
这个东西，需要理顺思路，需要考虑的东西比较多。在实际工作中也会遇到。

是的是的，想法和技术手段都比较重要