Sub GenerateLiveReportPPT()    Dim pptApp As Object    Dim pptPres As Object    Dim slideIndex As Integer    ' 错误处理，防止PPT未打开时报错    On Error Resume Next    Set pptApp = GetObject(, "PowerPoint.Application")    If pptApp Is Nothing Then        Set pptApp = CreateObject("PowerPoint.Application")        pptApp.Visible = True    End If    On Error GoTo 0    ' 打开指定PPT模板（请修改为你的模板路径）    Set pptPres = pptApp.Presentations.Open("C:\Template\直播复盘模板.pptx")    ' ---------- 第2页：核心数据总览 ----------    slideIndex = 2    With pptPres.Slides(slideIndex)        ' 填充关键指标文本框（假设这些Shape的名字已提前命名好）        .Shapes("txt_gmv").TextFrame.TextRange.Text = Format(Sheet1.Range("B2").Value, "#,##0")        .Shapes("txt_orders").TextFrame.TextRange.Text = Sheet1.Range("B3").Value        .Shapes("txt_watch").TextFrame.TextRange.Text = Sheet1.Range("B4").Value        ' 复制Excel中的图表到PPT        Sheet1.ChartObjects("Chart_GMV").Copy        .Shapes.PasteSpecial DataType:=2 ' ppPasteEnhancedMetafile    End With    ' ---------- 第3页：流量趋势 ----------    slideIndex = 3    With pptPres.Slides(slideIndex)        Sheet1.ChartObjects("Chart_Traffic").Copy        .Shapes.PasteSpecial DataType:=2    End With    ' ---------- 第4页：商品转化 ----------    slideIndex = 4    With pptPres.Slides(slideIndex)        Sheet1.ChartObjects("Chart_Products").Copy        .Shapes.PasteSpecial DataType:=2    End With    MsgBox "直播复盘PPT生成完毕！", vbInformation    ' 释放对象    Set pptPres = Nothing    Set pptApp = NothingEnd Sub

pip install python-pptx pandas matplotlib openpyxl

from pptx import Presentationfrom pptx.util import Inches, Ptfrom pptx.enum.text import PP_ALIGNimport pandas as pdimport matplotlib.pyplot as pltimport os# ========== 1. 读取Excel数据 ==========excel_path = r"C:\Data\直播数据.xlsx"df = pd.read_excel(excel_path, sheet_name="数据总览")# 提取核心指标gmw = df.loc[df['指标'] == 'GMV', '数值'].values[0]orders = df.loc[df['指标'] == '订单数', '数值'].values[0]watch_count = df.loc[df['指标'] == '累计观看', '数值'].values[0]# ========== 2. 生成图表 ==========# 流量趋势数据traffic_df = pd.read_excel(excel_path, sheet_name="流量趋势")plt.figure(figsize=(10, 4))plt.plot(traffic_df['时间'], traffic_df['在线人数'], marker='o', color='#FF5777')plt.title('直播在线人数趋势', fontsize=14)plt.xlabel('时间')plt.ylabel('在线人数')plt.grid(True, linestyle='--', alpha=0.7)plt.tight_layout()chart_traffic_path = "traffic_trend.png"plt.savefig(chart_traffic_path, dpi=100)plt.close()# ========== 3. 操作PPT ==========ppt_template = r"C:\Template\直播复盘模板.pptx"prs = Presentation(ppt_template)# ----- 第2页：核心数据总览 -----slide = prs.slides[1]  # 索引从0开始，第2页对应index=1for shape in slide.shapes:    if shape.name == "txt_gmv":        shape.text = f"{gmw:,.0f}"        # 设置字体样式        for paragraph in shape.text_frame.paragraphs:            paragraph.font.size = Pt(32)            paragraph.font.bold = True            paragraph.alignment = PP_ALIGN.CENTER    if shape.name == "txt_orders":        shape.text = str(orders)    if shape.name == "txt_watch":        shape.text = f"{watch_count:,}"# ----- 第3页：流量趋势图 -----slide = prs.slides[2]for shape in slide.shapes:    if shape.name == "placeholder_chart":        left = shape.left        top = shape.top        width = shape.width        height = shape.height        # 删除原占位符        sp = shape._element        sp.getparent().remove(sp)        # 插入图片        slide.shapes.add_picture(            chart_traffic_path,            left,            top,            width,            height        )# ========== 4. 保存PPT ==========output_path = r"C:\Output\直播复盘报告_自动生成.pptx"prs.save(output_path)print(f"PPT生成成功！文件路径：{output_path}")# 清理临时图片if os.path.exists(chart_traffic_path):    os.remove(chart_traffic_path)