excel 信息批量转PPT

前言

在工作中,往往遇到大量数据的统计工作,耗时耗力,我们通常把这些信息用excel做成表单信息。除了统计分析,还面临汇报降解,这时候需要将excel转为PPT进行汇报,如果一个一个复制粘贴,那真的会让人崩溃。

一、分析数据

 这是一组入河排污口调查信息,目的要介绍每一个排口的具体情况。最好是一个排口一张PPT。

二、使用vba

不用会编程,问chatgpt就好了。

以下是我的问题:

excel表格有多行多列,其中第一列大纲级别为1,第二列及其后列大纲级别为2,请将其转为word大纲模式

以下是代码

Sub ExportToWordOutline()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdRange As Object
    Dim rng As Range
    Dim i As Long, j As Long
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    
    ' 创建新的Word文档
    Set wdDoc = wdApp.Documents.Add
    
    ' 获取Excel中的数据范围
    Set rng = ThisWorkbook.Sheets("Sheet1").UsedRange
    
    ' 将数据复制到Word大纲视图中
    Set wdRange = wdDoc.Range
    For i = 1 To rng.Rows.Count
        wdRange.Paragraphs.Add
        wdRange.Paragraphs.Last.Range.Text = rng.Cells(i, 1).Value
        wdRange.Paragraphs.Last.outlineLevel = 1
        
        For j = 2 To rng.Columns.Count
            wdRange.Paragraphs.Add
            wdRange.Paragraphs.Last.Range.Text = rng.Cells(i, j).Value
            wdRange.Paragraphs.Last.outlineLevel = 2
        Next j
    Next i
    
    ' 释放对象
    Set rng = Nothing
    Set wdRange = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

三、word大纲转PPT

运行后生成word大纲视图

 ppt 新建ppt - 幻灯片从大纲

得到效果如下

 四、PPT调整版式

视图-幻灯片母版

选择对应的版式就行修改。最后达到你想要的效果。

 

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

细节处有神明

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值