' 开启VBA开发环境' 1. 打开PowerPoint，按Alt+F11进入VBA编辑器' 2. 插入模块，开始编写代码Sub EnableVBAEnvironment()    ' 设置VBA项目属性    ThisProject.Name = "PPT自动化生成"    ' 确保引用正确    Call CheckReferencesEnd SubSub CheckReferences()    ' 检查必要引用是否已加载    On Error Resume Next    Dim ref As Reference    For Each ref In ThisProject.References        If ref.Name = "Microsoft PowerPoint 16.0 Object Library" Then            Exit Sub        End If    Next ref    ' 如果没有找到引用，需要手动添加    MsgBox "请引用Microsoft PowerPoint对象库", vbInformationEnd Sub

Sub GenerateProductPPT()    Dim pptApp As PowerPoint.Application    Dim pptPres As PowerPoint.Presentation    Dim pptSlide As PowerPoint.Slide    Dim productLayout As CustomLayout    Dim i As Integer    ' 错误处理    On Error GoTo ErrorHandler    ' 创建PowerPoint应用实例    Set pptApp = New PowerPoint.Application    pptApp.Visible = True  ' 设置为True可查看生成过程    ' 打开模板文件    Set pptPres = pptApp.Presentations.Open("C:\模板\产品介绍模板.pptx")    ' 获取产品布局    Set productLayout = pptPres.Designs(1).SlideMaster.CustomLayouts(1)    ' 读取产品数据    Dim productData As Variant    productData = GetProductDataFromExcel("C:\数据\产品清单.xlsx")    ' 循环生成每个产品的幻灯片    For i = 1 To UBound(productData, 1)        ' 创建新幻灯片        Set pptSlide = pptPres.Slides.AddSlide(pptPres.Slides.Count + 1, productLayout)        ' 填充内容        Call FillSlideContent(pptSlide, productData, i)    Next i    ' 保存演示文稿    pptPres.SaveAs "C:\输出\产品介绍_" & Format(Now(), "yyyy-mm-dd-hh-mm") & ".pptx"    MsgBox "PPT生成完成！共生成 " & UBound(productData, 1) & " 个产品介绍。", vbInformation    Exit SubErrorHandler:    MsgBox "错误号: " & Err.Number & vbCrLf & "错误描述: " & Err.Description, vbCriticalEnd SubSub FillSlideContent(slide As PowerPoint.Slide, productData As Variant, index As Integer)    ' 填充幻灯片内容    Dim shape As shape    Dim productName As String    Dim productDesc As String    Dim imgPath As String    ' 获取产品信息    productName = productData(index, 1)  ' 产品名称    productDesc = productData(index, 2)  ' 产品描述    imgPath = productData(index, 3)      ' 图片路径    ' 遍历幻灯片中的所有形状，填充内容    For Each shape In slide.Shapes        Select Case shape.PlaceholderFormat.Type            Case ppPlaceholderTitle  ' 标题占位符                shape.TextFrame.TextRange.Text = productName            Case ppPlaceholderBody   ' 正文占位符                shape.TextFrame.TextRange.Text = productDesc            Case ppPlaceholderPicture  ' 图片占位符                If Dir(imgPath) <> "" Then  ' 检查图片文件是否存在                    slide.Shapes.AddPicture imgPath, msoFalse, msoTrue, shape.Left, shape.Top, shape.Width, shape.Height                    shape.Delete  ' 删除原始占位符                End If        End Select    Next shapeEnd SubFunction GetProductDataFromExcel(filePath As String) As Variant    ' 从Excel读取产品数据    Dim excelApp As Excel.Application    Dim excelWB As Excel.Workbook    Dim excelWS As Excel.Worksheet    Dim dataRange As Excel.Range    Dim productData As Variant    Set excelApp = New Excel.Application    excelApp.Visible = False  ' 隐藏Excel窗口    ' 打开工作簿    Set excelWB = excelApp.Workbooks.Open(filePath)    Set excelWS = excelWB.Sheets(1)    ' 获取数据范围    Set dataRange = excelWS.UsedRange    productData = dataRange.Value    ' 清理资源    excelWB.Close SaveChanges:=False    excelApp.Quit    GetProductDataFromExcel = productDataEnd Function

Sub AdvancedProductPPTGenerator()    Dim pptApp As PowerPoint.Application    Dim pptPres As PowerPoint.Presentation    Dim successCount As Integer    Dim errorCount As Integer    Dim startTime As Double    Dim endTime As Double    ' 记录开始时间    startTime = Timer    On Error GoTo ErrorHandler    ' 初始化计数器    successCount = 0    errorCount = 0    Set pptApp = New PowerPoint.Application    pptApp.Visible = False  ' 后台运行，提升速度    ' 创建新演示文稿    Set pptPres = pptApp.Presentations.Add    ' 读取产品数据    Dim productList As Collection    Set productList = GetStructuredProductData("C:\数据\产品清单.xlsx")    ' 处理每个产品    Dim product As Variant    For Each product In productList        If GenerateSingleProductSlide(pptPres, product) Then            successCount = successCount + 1        Else            errorCount = errorCount + 1            ' 记录错误日志            Call LogError("产品处理失败: " & product("名称"))        End If    Next product    ' 应用设计模板    pptPres.ApplyTemplate "C:\模板\企业设计模板.potx"    ' 保存结果    Dim outputPath As String    outputPath = "C:\输出\产品介绍_批量生成.pptx"    pptPres.SaveAs outputPath    endTime = Timer    ' 生成报告    MsgBox "生成完成！" & vbCrLf & _           "成功: " & successCount & " 个" & vbCrLf & _           "失败: " & errorCount & " 个" & vbCrLf & _           "耗时: " & Format(endTime - startTime, "0.00") & " 秒", _           vbInformation    ' 清理资源    pptPres.Close    pptApp.Quit    Exit SubErrorHandler:    MsgBox "生成过程中出现错误: " & Err.Description, vbCriticalEnd Sub

pip install python-pptx pandas openpyxl pillow

from pptx import Presentationfrom pptx.util import Inches, Ptfrom pptx.enum.text import PP_ALIGNfrom pptx.dml.color import RGBColorimport pandas as pdimport osfrom pathlib import Pathclass PPTGenerator:    """PPT生成器基类"""    def __init__(self, template_path=None):        if template_path and os.path.exists(template_path):            self.prs = Presentation(template_path)        else:            self.prs = Presentation()        self.setup_logging()        self.setup_directories()    def setup_logging(self):        """设置日志系统"""        import logging        logging.basicConfig(level=logging.INFO)        self.logger = logging.getLogger(__name__)    def setup_directories(self):        """设置目录结构"""        self.output_dir = Path("output")        self.temp_dir = Path("temp")        self.output_dir.mkdir(exist_ok=True)        self.temp_dir.mkdir(exist_ok=True)

class ProductPPTGenerator(PPTGenerator):    """产品PPT生成器"""    def __init__(self, template_path=None):        super().__init__(template_path)        self.product_layout = self.find_product_layout()    def find_product_layout(self):        """查找产品介绍版式"""        for layout in self.prs.slide_layouts:            if layout.name and "产品" in layout.name:                return layout        # 如果没有找到特定版式，使用第一个内容版式        return self.prs.slide_layouts[1]    def load_product_data(self, data_source):        """加载产品数据"""        if isinstance(data_source, str):            if data_source.endswith('.xlsx') or data_source.endswith('.xls'):                return pd.read_excel(data_source)            elif data_source.endswith('.csv'):                return pd.read_csv(data_source)        elif isinstance(data_source, pd.DataFrame):            return data_source        raise ValueError("不支持的数据源格式")    def generate_batch_products(self, data_source, output_path=None):        """批量生成产品PPT"""        df = self.load_product_data(data_source)        success_count = 0        error_count = 0        for index, row in df.iterrows():            try:                self.add_product_slide(row)                success_count += 1                self.logger.info(f"成功添加产品: {row['产品名称']}")            except Exception as e:                error_count += 1                self.logger.error(f"添加产品失败 {row['产品名称']}: {str(e)}")        # 保存文件        if not output_path:            output_path = self.output_dir / f"产品介绍_批量_{len(df)}款.pptx"        self.prs.save(output_path)        self.logger.info(f"PPT生成完成！成功: {success_count}, 失败: {error_count}")        return success_count, error_count    def add_product_slide(self, product_data):        """添加单个产品幻灯片"""        slide = self.prs.slides.add_slide(self.product_layout)        # 填充占位符内容        self.fill_placeholders(slide, product_data)        return slide

def fill_placeholders(self, slide, product_data):    """填充占位符内容"""    for shape in slide.shapes:        if not shape.has_text_frame and not shape.is_placeholder:            continue        placeholder = shape.placeholder_format        if placeholder:            self.fill_specific_placeholder(shape, placeholder.type, product_data)def fill_specific_placeholder(self, shape, placeholder_type, product_data):    """根据占位符类型填充内容"""    try:        if placeholder_type == 1:  # 标题            shape.text = product_data.get('产品名称', '')            self.format_title(shape)        elif placeholder_type == 2:  # 正文            description = product_data.get('产品描述', '')            specifications = product_data.get('产品规格', '')            full_text = f"{description}\n\n规格参数:\n{specifications}"            shape.text = full_text            self.format_body(shape)        elif placeholder_type == 7:  # 图片            img_path = product_data.get('图片路径', '')            if img_path and os.path.exists(img_path):                self.insert_picture(shape, img_path)            else:                self.logger.warning(f"图片不存在: {img_path}")        elif placeholder_type == 13:  # 图表            sales_data = product_data.get('销售数据', {})            if sales_data:                self.insert_chart(shape, sales_data)    except Exception as e:        self.logger.error(f"填充占位符失败: {str(e)}")def insert_picture(self, placeholder, img_path):    """插入图片到占位符"""    # 获取占位符的位置和尺寸    left = placeholder.left    top = placeholder.top    width = placeholder.width    height = placeholder.height    # 添加图片    slide = placeholder.parent    slide.shapes.add_picture(img_path, left, top, width, height)    # 删除原始占位符    placeholder.element.getparent().remove(placeholder.element)def format_title(self, shape):    """格式化标题"""    text_frame = shape.text_frame    for paragraph in text_frame.paragraphs:        for run in paragraph.runs:            run.font.size = Pt(24)            run.font.bold = True            run.font.color.rgb = RGBColor(0, 0, 0)  # 黑色def format_body(self, shape):    """格式化正文"""    text_frame = shape.text_frame    text_frame.word_wrap = True  # 自动换行    for paragraph in text_frame.paragraphs:        paragraph.alignment = PP_ALIGN.LEFT        for run in paragraph.runs:            run.font.size = Pt(14)            run.font.color.rgb = RGBColor(64, 64, 64)  # 深灰色

class EnterprisePPTGenerator(ProductPPTGenerator):    """企业级PPT生成器"""    def __init__(self, template_path, config=None):        super().__init__(template_path)        self.config = config or self.default_config()        self.setup_enterprise_features()    def default_config(self):        """默认配置"""        return {            'branding': {                'primary_color': RGBColor(0, 102, 204),                'secondary_color': RGBColor(255, 153, 0),                'font_family': '微软雅黑'            },            'quality_control': {                'max_slides_per_presentation': 50,                'image_min_resolution': (800, 600),                'file_size_limit_mb': 50            }        }    def generate_enterprise_presentation(self, products_data, output_path):        """生成企业级演示文稿"""        # 分批处理，避免文件过大        batch_size = self.config['quality_control']['max_slides_per_presentation']        batches = [products_data[i:i + batch_size] for i in range(0, len(products_data), batch_size)]        generated_files = []        for i, batch in enumerate(batches):            batch_pres = Presentation(self.template_path)            batch_generator = ProductPPTGenerator()            batch_generator.prs = batch_pres            # 生成当前批次            for product in batch:                batch_generator.add_product_slide(product)            # 添加品牌元素            self.apply_branding(batch_pres)            # 保存批次文件            batch_filename = output_path.parent / f"{output_path.stem}_part{i+1}{output_path.suffix}"            batch_pres.save(batch_filename)            generated_files.append(batch_filename)        return generated_files    def apply_branding(self, presentation):        """应用品牌样式"""        for slide in presentation.slides:            for shape in slide.shapes:                if shape.has_text_frame:                    self.apply_text_branding(shape)    def apply_text_branding(self, shape):        """应用文本品牌样式"""        for paragraph in shape.text_frame.paragraphs:            for run in paragraph.runs:                # 设置品牌字体和颜色                run.font.name = self.config['branding']['font_family']                if run.font.bold:                    run.font.color.rgb = self.config['branding']['primary_color']                else:                    run.font.color.rgb = self.config['branding']['secondary_color']

class EcommercePPTGenerator(EnterprisePPTGenerator):    """电商PPT生成器"""    def __init__(self, template_path, ecommerce_config):        super().__init__(template_path)        self.ecommerce_config = ecommerce_config        self.setup_ecommerce_integration()    def setup_ecommerce_integration(self):        """设置电商平台集成"""        self.platform_adapters = {            'taobao': TaobaoAdapter(),            'jd': JDAdapter(),            'pdd': PDDAdapter()        }    def generate_from_ecommerce_data(self, platform, product_ids, output_path):        """从电商平台数据生成PPT"""        adapter = self.platform_adapters.get(platform)        if not adapter:            raise ValueError(f"不支持的平台: {platform}")        # 获取产品数据        products_data = []        for product_id in product_ids:            try:                product_data = adapter.get_product_data(product_id)                products_data.append(product_data)            except Exception as e:                self.logger.error(f"获取产品数据失败 {product_id}: {str(e)}")        # 生成PPT        return self.generate_enterprise_presentation(products_data, output_path)    def generate_with_ai_enhancement(self, products_data, output_path):        """AI增强的PPT生成"""        enhanced_data = []        for product in products_data:            # AI优化产品描述            enhanced_description = self.enhance_with_ai(product['description'])            product['enhanced_description'] = enhanced_description            # AI选择最佳图片            best_image = self.select_best_image_with_ai(product['images'])            product['selected_image'] = best_image            enhanced_data.append(product)        return super().generate_enterprise_presentation(enhanced_data, output_path)# 使用示例def ecommerce_demo():    """电商应用演示"""    config = {        'template_path': 'templates/ecommerce_template.pptx',        'ecommerce_config': {            'auto_crop_images': True,            'optimize_for_mobile': True,            'add_qr_codes': True        }    }    generator = EcommercePPTGenerator(**config)    # 从淘宝平台获取产品数据    product_ids = ['123456', '789012', '345678']    result = generator.generate_from_ecommerce_data('taobao', product_ids, '新品介绍.pptx')    return resultif __name__ == "__main__":    ecommerce_demo()