# core/architecture.pyfrom dataclasses import dataclass, fieldfrom typing import Dict, List, Optional, Any, Tuplefrom enum import Enumfrom datetime import datetimefrom pathlib import Pathimport yamlimport jsonclass ReportType(Enum):    """报告类型枚举"""    QUARTERLY_BUSINESS_REVIEW = "季度经营分析会"    MONTHLY_PERFORMANCE = "月度绩效汇报"    BOARD_MEETING = "董事会汇报"    INVESTOR_PRESENTATION = "投资者汇报"    DEPARTMENT_REVIEW = "部门评审会"class SlideType(Enum):    """幻灯片类型枚举"""    TITLE = "标题页"    AGENDA = "议程页"    EXECUTIVE_SUMMARY = "执行摘要"    FINANCIAL_HIGHLIGHTS = "财务亮点"    REVENUE_ANALYSIS = "收入分析"    PROFITABILITY = "盈利能力"    CASH_FLOW = "现金流"    BALANCE_SHEET = "资产负债表"    KPI_SCORECARD = "KPI记分卡"    SWOT_ANALYSIS = "SWOT分析"    RECOMMENDATIONS = "建议措施"    NEXT_STEPS = "下一步计划"    APPENDIX = "附录"@dataclassclass SlideTemplate:    """幻灯片模板配置"""    slide_type: SlideType    layout_name: str    placeholders: Dict[str, Dict[str, Any]]  # 占位符名称: 配置    data_sources: List[str]    charts: List[Dict[str, Any]] = field(default_factory=list)    tables: List[Dict[str, Any]] = field(default_factory=list)    conditional_formatting: List[Dict[str, Any]] = field(default_factory=list)    animations: List[Dict[str, Any]] = field(default_factory=list)    def validate(self) -> bool:        """验证模板配置"""        required_fields = ['slide_type', 'layout_name', 'placeholders']        for field in required_fields:            if not getattr(self, field):                return False        # 验证占位符配置        for placeholder_name, config in self.placeholders.items():            if 'data_key' not in config:                return False        return True@dataclassclass PresentationConfig:    """演示文稿配置"""    template_path: str    output_dir: str = "output/presentations"    data_dir: str = "data"    chart_dir: str = "output/charts"    # 样式配置    theme: Dict[str, Any] = field(default_factory=dict)    color_scheme: Dict[str, str] = field(default_factory=dict)    font_scheme: Dict[str, str] = field(default_factory=dict)    # 动画配置    animations: Dict[str, Any] = field(default_factory=dict)    transitions: Dict[str, Any] = field(default_factory=dict)    # 幻灯片配置    slides: List[SlideTemplate] = field(default_factory=list)    def __post_init__(self):        """初始化默认配置"""        if not self.theme:            self.theme = {                'name': 'Corporate Finance',                'background': 'FFFFFF',                'accent_colors': ['2E74B5', '4472C4', '70AD47', 'FFC000', 'C00000']            }        if not self.color_scheme:            self.color_scheme = {                'primary': '2E74B5',      # 主色                'secondary': '4472C4',    # 辅色                'success': '70AD47',      # 成功                'warning': 'FFC000',      # 警告                'danger': 'C00000',       # 危险                'dark': '404040',         # 深色                'light': 'F2F2F2'         # 浅色            }        if not self.font_scheme:            self.font_scheme = {                'title_font': '微软雅黑',                'heading_font': '微软雅黑',                'body_font': '微软雅黑',                'code_font': 'Consolas'            }

# core/presentation_generator.pyfrom typing import Dict, List, Optional, Any, Tuplefrom pathlib import Pathimport loggingfrom datetime import datetimeimport pandas as pdimport numpy as npfrom dataclasses import asdictimport jsonimport yamlfrom pptx import Presentationfrom pptx.util import Inches, Pt, Cmfrom pptx.dml.color import RGBColorfrom pptx.enum.text import PP_ALIGN, MSO_ANCHORfrom pptx.enum.shapes import MSO_SHAPEfrom pptx.enum.chart import XL_CHART_TYPEfrom pptx.chart.data import ChartDatafrom pptx.enum.dml import MSO_THEME_COLORimport matplotlib.pyplot as pltimport seaborn as snsfrom PIL import Imageimport iofrom .architecture import PresentationConfig, SlideTemplate, SlideType, ReportTypefrom .data_processor import FinancialDataProcessorfrom .chart_generator import FinancialChartGeneratorclass FinancialPresentationGenerator:    """财务演示文稿生成器"""    def __init__(self, config: PresentationConfig):        self.config = config        self.logger = logging.getLogger(__name__)        # 初始化组件        self.data_processor = FinancialDataProcessor()        self.chart_generator = FinancialChartGenerator()        # 创建输出目录        self.output_dir = Path(config.output_dir)        self.output_dir.mkdir(parents=True, exist_ok=True)        # 加载模板        self.template_path = Path(config.template_path)        if not self.template_path.exists():            self.logger.error(f"模板文件不存在: {self.template_path}")            self.presentation = Presentation()  # 使用默认模板        else:            self.presentation = Presentation(str(self.template_path))        # 应用主题样式        self._apply_theme()    def _apply_theme(self):        """应用主题样式"""        # 设置颜色方案        color_scheme = self.config.color_scheme        # 注意：python-pptx的颜色设置有限        # 实际应用中，应在PPT模板中预先定义好主题颜色    def generate_presentation(self, report_type: ReportType,                             data_context: Dict[str, Any],                            output_name: Optional[str] = None) -> Path:        """生成演示文稿"""        start_time = datetime.now()        self.logger.info(f"开始生成{report_type.value}演示文稿")        # 生成输出文件名        if output_name is None:            timestamp = datetime.now().strftime('%Y%m%d_%H%M%S')            output_name = f"{report_type.value}_{timestamp}.pptx"        output_path = self.output_dir / output_name        try:            # 1. 生成封面页            self._generate_title_slide(data_context)            # 2. 生成议程页            self._generate_agenda_slide(report_type)            # 3. 生成执行摘要            self._generate_executive_summary(data_context)            # 4. 生成财务亮点            self._generate_financial_highlights(data_context)            # 5. 生成详细分析页            self._generate_analysis_slides(data_context)            # 6. 生成建议页            self._generate_recommendations(data_context)            # 7. 生成附录            self._generate_appendix(data_context)            # 保存演示文稿            self.presentation.save(str(output_path))            end_time = datetime.now()            duration = (end_time - start_time).total_seconds()            self.logger.info(f"演示文稿生成完成: {output_path}，耗时: {duration:.2f}秒")            return output_path        except Exception as e:            self.logger.error(f"生成演示文稿失败: {e}", exc_info=True)            raise    def _generate_title_slide(self, data_context: Dict[str, Any]):        """生成标题页"""        slide_layout = self.presentation.slide_layouts[0]  # 标题页布局        slide = self.presentation.slides.add_slide(slide_layout)        # 设置标题        title = slide.shapes.title        if title:            title.text = data_context.get('title', '财务分析报告')            # 设置标题样式            title_frame = title.text_frame            title_frame.paragraphs[0].font.size = Pt(44)            title_frame.paragraphs[0].font.bold = True            title_frame.paragraphs[0].font.color.rgb = RGBColor(0, 0, 0)        # 设置副标题        subtitle = slide.placeholders[1]        if subtitle:            subtitle_text = []            company_name = data_context.get('company_name', '')            if company_name:                subtitle_text.append(company_name)            report_period = data_context.get('report_period', '')            if report_period:                subtitle_text.append(f"报告期间: {report_period}")            generation_date = data_context.get('generation_date', datetime.now().strftime('%Y年%m月%d日'))            subtitle_text.append(f"生成日期: {generation_date}")            subtitle.text = "\n".join(subtitle_text)            # 设置副标题样式            subtitle_frame = subtitle.text_frame            for paragraph in subtitle_frame.paragraphs:                paragraph.font.size = Pt(20)                paragraph.font.color.rgb = RGBColor(128, 128, 128)    def _generate_agenda_slide(self, report_type: ReportType):        """生成议程页"""        slide_layout = self.presentation.slide_layouts[1]  # 标题和内容布局        slide = self.presentation.slides.add_slide(slide_layout)        # 设置标题        title = slide.shapes.title        if title:            title.text = "会议议程"            title.text_frame.paragraphs[0].font.size = Pt(32)        # 设置议程内容        content = slide.shapes.placeholders[1]        if content:            tf = content.text_frame            tf.clear()  # 清空现有内容            # 根据报告类型设置议程            agendas = self._get_agendas_by_type(report_type)            for i, (agenda, duration) in enumerate(agendas):                p = tf.add_paragraph()                p.text = agenda                p.level = 0                p.font.size = Pt(20)                # 添加时间                time_p = tf.add_paragraph()                time_p.text = f"  {duration}"                time_p.level = 1                time_p.font.size = Pt(16)                time_p.font.color.rgb = RGBColor(128, 128, 128)    def _get_agendas_by_type(self, report_type: ReportType) -> List[Tuple[str, str]]:        """根据报告类型获取议程"""        agendas = {            ReportType.QUARTERLY_BUSINESS_REVIEW: [                ("开场与目标回顾", "5分钟"),                ("财务业绩概览", "10分钟"),                ("业务单元分析", "15分钟"),                ("关键问题讨论", "10分钟"),                ("行动计划与下一步", "10分钟"),                ("问答环节", "10分钟")            ],            ReportType.BOARD_MEETING: [                ("会议开场", "5分钟"),                ("战略目标回顾", "10分钟"),                ("财务表现分析", "15分钟"),                ("风险与机遇", "10分钟"),                ("董事会决议事项", "10分钟"),                ("会议总结", "5分钟")            ],            ReportType.MONTHLY_PERFORMANCE: [                ("月度业绩概览", "5分钟"),                ("关键指标分析", "10分钟"),                ("部门表现评估", "10分钟"),                ("问题与挑战", "5分钟"),                ("下月计划", "5分钟")            ]        }        return agendas.get(report_type, [            ("会议议程", "待定")        ])    def _generate_executive_summary(self, data_context: Dict[str, Any]):        """生成执行摘要页"""        slide_layout = self.presentation.slide_layouts[5]  # 两栏布局        slide = self.presentation.slides.add_slide(slide_layout)        # 设置标题        title = slide.shapes.title        if title:            title.text = "执行摘要"            title.text_frame.paragraphs[0].font.size = Pt(32)        # 获取执行摘要数据        summary_data = data_context.get('executive_summary', {})        # 左侧：关键指标        left_content = slide.shapes.placeholders[1]        if left_content:            tf = left_content.text_frame            tf.clear()            p = tf.add_paragraph()            p.text = "📊 关键指标"            p.font.size = Pt(20)            p.font.bold = True            metrics = summary_data.get('key_metrics', {})            metric_items = []            for metric_name, metric_value in metrics.items():                if isinstance(metric_value, (int, float)):                    if metric_name.endswith('growth') or metric_name.endswith('rate'):                        formatted_value = f"{metric_value:+.1%}"                    else:                        formatted_value = f"{metric_value:,.0f}"                else:                    formatted_value = str(metric_value)                metric_items.append(f"• {metric_name}: {formatted_value}")            for item in metric_items:                p = tf.add_paragraph()                p.text = item                p.font.size = Pt(16)                p.level = 1        # 右侧：核心结论        right_content = slide.shapes.placeholders[2]        if right_content:            tf = right_content.text_frame            tf.clear()            p = tf.add_paragraph()            p.text = "🎯 核心结论"            p.font.size = Pt(20)            p.font.bold = True            conclusions = summary_data.get('conclusions', [                "整体业绩符合预期，收入实现稳定增长",                "毛利率有所改善，盈利能力持续提升",                "现金流状况健康，经营质量良好",                "需关注应收账款周转天数上升趋势"            ])            for conclusion in conclusions:                p = tf.add_paragraph()                p.text = f"• {conclusion}"                p.font.size = Pt(16)                p.level = 1    def _generate_financial_highlights(self, data_context: Dict[str, Any]):        """生成财务亮点页"""        slide_layout = self.presentation.slide_layouts[6]  # 标题和内容布局        slide = self.presentation.slides.add_slide(slide_layout)        # 设置标题        title = slide.shapes.title        if title:            title.text = "财务亮点"            title.text_frame.paragraphs[0].font.size = Pt(32)        # 获取财务亮点数据        highlights_data = data_context.get('financial_highlights', {})        # 创建表格        content = slide.shapes.placeholders[1]        if content:            # 获取占位符位置和大小            left = content.left            top = content.top            width = content.width            height = content.height            # 删除原有占位符            sp = content.element            sp.getparent().remove(sp)            # 创建亮点卡片            highlights = highlights_data.get('highlights', [                {                    'title': '收入增长',                    'value': '+15.2%',                    'subtitle': '同比增长',                    'trend': 'up',                    'description': '主要业务板块均实现增长'                },                {                    'title': '毛利率',                    'value': '35.8%',                    'subtitle': '环比提升2.1%',                    'trend': 'up',                    'description': '成本控制效果显著'                },                {                    'title': '净利润',                    'value': '¥2.4亿',                    'subtitle': '同比增长22.3%',                    'trend': 'up',                    'description': '盈利能力持续增强'                },                {                    'title': '现金流',                    'value': '¥1.8亿',                    'subtitle': '经营现金流',                    'trend': 'stable',                    'description': '现金流状况健康'                }            ])            # 计算卡片位置和大小            num_cards = len(highlights)            card_width = width / 2 - Cm(0.5)            card_height = height / 2 - Cm(0.5)            for i, highlight in enumerate(highlights):                row = i // 2                col = i % 2                card_left = left + col * (card_width + Cm(0.5))                card_top = top + row * (card_height + Cm(0.5))                # 创建卡片形状                card = slide.shapes.add_shape(                    MSO_SHAPE.ROUNDED_RECTANGLE,                    card_left, card_top, card_width, card_height                )                # 设置卡片填充颜色                fill = card.fill                fill.solid()                fill.fore_color.rgb = RGBColor(242, 242, 242)  # 浅灰色背景                # 设置边框                line = card.line                line.color.rgb = RGBColor(200, 200, 200)                line.width = Pt(0.5)                # 添加卡片内容                self._add_highlight_content(slide, card, highlight)    def _add_highlight_content(self, slide, shape, highlight: Dict[str, Any]):        """添加亮点卡片内容"""        # 计算文本位置        left = shape.left + Cm(0.5)        top = shape.top + Cm(0.3)        width = shape.width - Cm(1.0)        # 添加标题        title_box = slide.shapes.add_textbox(left, top, width, Cm(0.8))        tf = title_box.text_frame        p = tf.add_paragraph()        p.text = highlight.get('title', '')        p.font.size = Pt(16)        p.font.bold = True        p.font.color.rgb = RGBColor(64, 64, 64)        # 添加数值        value_top = top + Cm(1.0)        value_box = slide.shapes.add_textbox(left, value_top, width, Cm(1.2))        tf = value_box.text_frame        p = tf.add_paragraph()        p.text = highlight.get('value', '')        # 根据趋势设置颜色        trend = highlight.get('trend', 'stable')        if trend == 'up':            p.font.color.rgb = RGBColor(46, 116, 181)  # 蓝色        elif trend == 'down':            p.font.color.rgb = RGBColor(192, 0, 0)  # 红色        else:            p.font.color.rgb = RGBColor(64, 64, 64)  # 灰色        p.font.size = Pt(28)        p.font.bold = True        # 添加副标题        subtitle_top = value_top + Cm(1.5)        subtitle_box = slide.shapes.add_textbox(left, subtitle_top, width, Cm(0.6))        tf = subtitle_box.text_frame        p = tf.add_paragraph()        p.text = highlight.get('subtitle', '')        p.font.size = Pt(12)        p.font.color.rgb = RGBColor(128, 128, 128)        # 添加描述        desc_top = subtitle_top + Cm(0.8)        desc_box = slide.shapes.add_textbox(left, desc_top, width, Cm(0.8))        tf = desc_box.text_frame        p = tf.add_paragraph()        p.text = highlight.get('description', '')        p.font.size = Pt(12)        p.font.color.rgb = RGBColor(64, 64, 64)    def _generate_analysis_slides(self, data_context: Dict[str, Any]):        """生成分析页面"""        # 收入分析页        self._generate_revenue_analysis_slide(data_context)        # 盈利能力分析页        self._generate_profitability_slide(data_context)        # 现金流分析页        self._generate_cashflow_slide(data_context)        # KPI仪表盘        self._generate_kpi_dashboard(data_context)    def _generate_revenue_analysis_slide(self, data_context: Dict[str, Any]):        """生成收入分析页"""        slide_layout = self.presentation.slide_layouts[7]  # 空白页        slide = self.presentation.slides.add_slide(slide_layout)        # 添加标题        title_box = slide.shapes.add_textbox(Cm(1), Cm(1), Cm(20), Cm(1.5))        tf = title_box.text_frame        p = tf.add_paragraph()        p.text = "收入分析"        p.font.size = Pt(28)        p.font.bold = True        # 获取收入数据        revenue_data = data_context.get('revenue_analysis', {})        # 如果有图表数据，插入图表        if 'chart_data' in revenue_data:            chart_path = revenue_data['chart_data']            if Path(chart_path).exists():                # 插入图表图片                left = Cm(1)                top = Cm(3)                width = Cm(15)                height = Cm(10)                slide.shapes.add_picture(str(chart_path), left, top, width, height)        # 添加关键指标        left = Cm(17)        top = Cm(3)        width = Cm(8)        metrics = revenue_data.get('key_metrics', {})        for i, (metric_name, metric_value) in enumerate(metrics.items()):            metric_top = top + i * Cm(2.5)            self._add_metric_card(slide, left, metric_top, width, Cm(2),                                  metric_name, metric_value)    def _add_metric_card(self, slide, left, top, width, height, title, value):        """添加指标卡片"""        # 创建卡片背景        card = slide.shapes.add_shape(            MSO_SHAPE.ROUNDED_RECTANGLE,            left, top, width, height        )        # 设置样式        fill = card.fill        fill.solid()        fill.fore_color.rgb = RGBColor(242, 242, 242)        line = card.line        line.color.rgb = RGBColor(200, 200, 200)        line.width = Pt(0.5)        # 添加标题        title_box = slide.shapes.add_textbox(left + Cm(0.3), top + Cm(0.2),                                            width - Cm(0.6), Cm(0.8))        tf = title_box.text_frame        p = tf.add_paragraph()        p.text = title        p.font.size = Pt(12)        p.font.color.rgb = RGBColor(128, 128, 128)        # 添加数值        value_box = slide.shapes.add_textbox(left + Cm(0.3), top + Cm(1.0),                                           width - Cm(0.6), Cm(1.0))        tf = value_box.text_frame        p = tf.add_paragraph()        p.text = str(value)        p.font.size = Pt(20)        p.font.bold = True        p.font.color.rgb = RGBColor(46, 116, 181)    def _generate_kpi_dashboard(self, data_context: Dict[str, Any]):        """生成KPI仪表盘"""        slide_layout = self.presentation.slide_layouts[7]  # 空白页        slide = self.presentation.slides.add_slide(slide_layout)        # 添加标题        title_box = slide.shapes.add_textbox(Cm(1), Cm(1), Cm(20), Cm(1.5))        tf = title_box.text_frame        p = tf.add_paragraph()        p.text = "KPI仪表盘"        p.font.size = Pt(28)        p.font.bold = True        # 获取KPI数据        kpi_data = data_context.get('kpi_dashboard', {})        # 创建仪表盘布局        kpis = kpi_data.get('kpis', [            {'name': '收入完成率', 'value': 98.5, 'target': 100, 'unit': '%'},            {'name': '毛利率', 'value': 35.2, 'target': 34, 'unit': '%'},            {'name': '净利率', 'value': 18.5, 'target': 18, 'unit': '%'},            {'name': 'ROE', 'value': 15.2, 'target': 15, 'unit': '%'},            {'name': '应收账款周转天数', 'value': 45, 'target': 40, 'unit': '天'},            {'name': '存货周转天数', 'value': 60, 'target': 55, 'unit': '天'},        ])        # 创建仪表盘        for i, kpi in enumerate(kpis):            row = i // 3            col = i % 3            left = Cm(1) + col * Cm(8)            top = Cm(3) + row * Cm(4)            width = Cm(7.5)            height = Cm(3.5)            self._add_kpi_gauge(slide, left, top, width, height, kpi)    def _add_kpi_gauge(self, slide, left, top, width, height, kpi: Dict[str, Any]):        """添加KPI仪表盘"""        # 创建背景        bg = slide.shapes.add_shape(            MSO_SHAPE.ROUNDED_RECTANGLE,            left, top, width, height        )        fill = bg.fill        fill.solid()        fill.fore_color.rgb = RGBColor(255, 255, 255)        line = bg.line        line.color.rgb = RGBColor(200, 200, 200)        line.width = Pt(0.5)        # 添加KPI名称        name_box = slide.shapes.add_textbox(left + Cm(0.3), top + Cm(0.2),                                           width - Cm(0.6), Cm(0.6))        tf = name_box.text_frame        p = tf.add_paragraph()        p.text = kpi['name']        p.font.size = Pt(12)        p.font.bold = True        p.font.color.rgb = RGBColor(64, 64, 64)        # 添加当前值        value = kpi['value']        target = kpi.get('target', 100)        unit = kpi.get('unit', '')        value_box = slide.shapes.add_textbox(left + Cm(0.3), top + Cm(1.0),                                            width - Cm(0.6), Cm(1.0))        tf = value_box.text_frame        p = tf.add_paragraph()        p.text = f"{value}{unit}"        p.font.size = Pt(20)        p.font.bold = True        # 根据完成情况设置颜色        if value >= target * 1.1:  # 超额完成            p.font.color.rgb = RGBColor(112, 173, 71)  # 绿色        elif value >= target:  # 达标            p.font.color.rgb = RGBColor(255, 192, 0)  # 黄色        else:  # 未达标            p.font.color.rgb = RGBColor(192, 0, 0)  # 红色        # 添加目标值        target_box = slide.shapes.add_textbox(left + Cm(0.3), top + Cm(2.2),                                             width - Cm(0.6), Cm(0.6))        tf = target_box.text_frame        p = tf.add_paragraph()        p.text = f"目标: {target}{unit}"        p.font.size = Pt(10)        p.font.color.rgb = RGBColor(128, 128, 128)        # 添加进度条        progress_width = width - Cm(0.6)        progress_height = Cm(0.3)        progress_left = left + Cm(0.3)        progress_top = top + Cm(3.0)        # 背景条        bg_bar = slide.shapes.add_shape(            MSO_SHAPE.RECTANGLE,            progress_left, progress_top, progress_width, progress_height        )        bg_bar.fill.solid()        bg_bar.fill.fore_color.rgb = RGBColor(230, 230, 230)        bg_bar.line.color.rgb = RGBColor(200, 200, 200)        # 前景条        progress = min(value / target, 1.5)  # 最大显示150%        fg_width = progress_width * progress        fg_bar = slide.shapes.add_shape(            MSO_SHAPE.RECTANGLE,            progress_left, progress_top, fg_width, progress_height        )        fg_bar.fill.solid()        # 设置进度条颜色        if progress >= 1.0:  # 超额完成            fg_bar.fill.fore_color.rgb = RGBColor(112, 173, 71)        elif progress >= 0.8:  # 接近目标            fg_bar.fill.fore_color.rgb = RGBColor(255, 192, 0)        else:  # 未达标            fg_bar.fill.fore_color.rgb = RGBColor(192, 0, 0)        fg_bar.line.color.rgb = fg_bar.fill.fore_color.rgb    def _generate_recommendations(self, data_context: Dict[str, Any]):        """生成建议页"""        slide_layout = self.presentation.slide_layouts[1]  # 标题和内容布局        slide = self.presentation.slides.add_slide(slide_layout)        # 设置标题        title = slide.shapes.title        if title:            title.text = "建议措施"            title.text_frame.paragraphs[0].font.size = Pt(32)        # 获取建议数据        recommendations = data_context.get('recommendations', [            {                'category': '收入增长',                'items': [                    '拓展新客户群体，提高市场覆盖率',                    '优化产品定价策略，提升客单价',                    '加强渠道合作，扩大销售网络'                ]            },            {                'category': '成本控制',                'items': [                    '优化供应链管理，降低采购成本',                    '提高生产效率，降低单位成本',                    '控制行政费用，提高费用效率'                ]            },            {                'category': '现金流管理',                'items': [                    '加强应收账款管理，缩短回款周期',                    '优化库存管理，提高存货周转率',                    '合理安排资金支付，提高资金使用效率'                ]            }        ])        # 添加建议内容        content = slide.shapes.placeholders[1]        if content:            tf = content.text_frame            tf.clear()            for rec in recommendations:                # 添加分类标题                p = tf.add_paragraph()                p.text = f"📈 {rec['category']}"                p.font.size = Pt(18)                p.font.bold = True                p.font.color.rgb = RGBColor(46, 116, 181)                # 添加建议项                for item in rec['items']:                    p = tf.add_paragraph()                    p.text = f"  • {item}"                    p.font.size = Pt(16)                    p.level = 1    def _generate_appendix(self, data_context: Dict[str, Any]):        """生成附录"""        slide_layout = self.presentation.slide_layouts[1]  # 标题和内容布局        slide = self.presentation.slides.add_slide(slide_layout)        # 设置标题        title = slide.shapes.title        if title:            title.text = "附录"            title.text_frame.paragraphs[0].font.size = Pt(32)        # 添加附录内容        content = slide.shapes.placeholders[1]        if content:            tf = content.text_frame            tf.clear()            appendix_items = [                "数据来源：财务系统、业务系统、市场数据",                "统计周期：本季度（1-3月）",                "计算口径：如无特别说明，均采用会计准则标准",                "联系方式：如有疑问，请联系财务部",                "生成时间：本报告自动生成于" + datetime.now().strftime('%Y年%m月%d日 %H:%M:%S')            ]            for item in appendix_items:                p = tf.add_paragraph()                p.text = f"• {item}"                p.font.size = Pt(16)

# core/data_processor.pyimport pandas as pdimport numpy as npfrom typing import Dict, List, Any, Optionalfrom pathlib import Pathimport jsonimport yamlfrom datetime import datetime, timedeltaimport loggingfrom dataclasses import dataclass@dataclassclass FinancialData:    """财务数据结构"""    # 基础信息    company_name: str    report_period: str    report_date: datetime    # 利润表数据    income_statement: pd.DataFrame    # 资产负债表数据    balance_sheet: pd.DataFrame    # 现金流量表数据    cash_flow_statement: pd.DataFrame    # 计算指标    metrics: Dict[str, Any]    # 分析洞察    insights: List[Dict[str, Any]]    # 建议措施    recommendations: List[Dict[str, Any]]class FinancialDataProcessor:    """财务数据处理模块"""    def __init__(self, config_path: str = "config/data_config.yaml"):        self.config_path = Path(config_path)        self.config = self._load_config()        self.logger = logging.getLogger(__name__)    def _load_config(self) -> Dict[str, Any]:        """加载配置"""        if self.config_path.exists():            with open(self.config_path, 'r', encoding='utf-8') as f:                return yaml.safe_load(f)        return self._get_default_config()    def _get_default_config(self) -> Dict[str, Any]:        """获取默认配置"""        return {            'data_sources': {                'income_statement': 'data/financial/income_statement.xlsx',                'balance_sheet': 'data/financial/balance_sheet.xlsx',                'cash_flow': 'data/financial/cash_flow.xlsx',                'kpi_data': 'data/kpi/kpi_data.xlsx'            },            'periods': {                'current': '2024-Q1',                'previous': '2023-Q4',                'year_ago': '2023-Q1'            },            'metrics_config': {                'profitability': ['gross_margin', 'operating_margin', 'net_margin', 'roe', 'roa'],                'liquidity': ['current_ratio', 'quick_ratio', 'cash_ratio'],                'solvency': ['debt_to_equity', 'debt_ratio', 'interest_coverage'],                'efficiency': ['inventory_turnover', 'receivables_turnover', 'asset_turnover'],                'growth': ['revenue_growth', 'profit_growth', 'asset_growth']            }        }    def load_data(self) -> FinancialData:        """加载财务数据"""        self.logger.info("开始加载财务数据")        # 加载基础数据        income_data = self._load_income_statement()        balance_data = self._load_balance_sheet()        cashflow_data = self._load_cash_flow()        # 计算财务指标        metrics = self._calculate_metrics(income_data, balance_data, cashflow_data)        # 生成分析洞察        insights = self._generate_insights(metrics)        # 生成建议措施        recommendations = self._generate_recommendations(metrics, insights)        # 创建数据对象        financial_data = FinancialData(            company_name="示例公司",            report_period=self.config['periods']['current'],            report_date=datetime.now(),            income_statement=income_data,            balance_sheet=balance_data,            cash_flow_statement=cashflow_data,            metrics=metrics,            insights=insights,            recommendations=recommendations        )        self.logger.info("财务数据加载完成")        return financial_data    def _load_income_statement(self) -> pd.DataFrame:        """加载利润表数据"""        file_path = self.config['data_sources']['income_statement']        if not Path(file_path).exists():            self.logger.warning(f"利润表文件不存在: {file_path}")            return self._create_sample_income_data()        try:            data = pd.read_excel(file_path, sheet_name=0)            self.logger.info(f"成功加载利润表数据，共{len(data)}行")            return data        except Exception as e:            self.logger.error(f"加载利润表数据失败: {e}")            return self._create_sample_income_data()    def _create_sample_income_data(self) -> pd.DataFrame:        """创建示例利润表数据"""        periods = ['2023-Q1', '2023-Q2', '2023-Q3', '2023-Q4', '2024-Q1']        data = {            'period': periods,            'revenue': [120000, 135000, 142000, 158000, 168000],  # 营业收入            'cost_of_goods_sold': [78000, 85000, 90000, 100000, 105000],  # 营业成本            'gross_profit': [42000, 50000, 52000, 58000, 63000],  # 毛利润            'operating_expenses': [25000, 28000, 29000, 32000, 33000],  # 营业费用            'operating_profit': [17000, 22000, 23000, 26000, 30000],  # 营业利润            'net_profit': [12000, 15000, 16000, 18000, 21000]  # 净利润        }        return pd.DataFrame(data)    def _calculate_metrics(self, income_data: pd.DataFrame,                           balance_data: pd.DataFrame,                          cashflow_data: pd.DataFrame) -> Dict[str, Any]:        """计算财务指标"""        metrics = {}        # 获取最新期间数据        latest_income = income_data.iloc[-1] if not income_data.empty else {}        latest_balance = balance_data.iloc[-1] if not balance_data.empty else {}        # 计算盈利能力指标        if not income_data.empty:            metrics['profitability'] = self._calculate_profitability_metrics(income_data)        # 计算偿债能力指标        if not balance_data.empty:            metrics['solvency'] = self._calculate_solvency_metrics(balance_data)        # 计算流动性指标        if not balance_data.empty:            metrics['liquidity'] = self._calculate_liquidity_metrics(balance_data)        # 计算效率指标        if not income_data.empty and not balance_data.empty:            metrics['efficiency'] = self._calculate_efficiency_metrics(income_data, balance_data)        # 计算增长指标        if len(income_data) >= 2:            metrics['growth'] = self._calculate_growth_metrics(income_data)        return metrics    def _calculate_profitability_metrics(self, income_data: pd.DataFrame) -> Dict[str, float]:        """计算盈利能力指标"""        metrics = {}        if len(income_data) < 1:            return metrics        latest = income_data.iloc[-1]        # 毛利率        if 'revenue' in latest and 'cost_of_goods_sold' in latest:            if latest['revenue'] != 0:                metrics['gross_margin'] = (latest['revenue'] - latest['cost_of_goods_sold']) / latest['revenue']        # 营业利润率        if 'revenue' in latest and 'operating_profit' in latest:            if latest['revenue'] != 0:                metrics['operating_margin'] = latest['operating_profit'] / latest['revenue']        # 净利润率        if 'revenue' in latest and 'net_profit' in latest:            if latest['revenue'] != 0:                metrics['net_margin'] = latest['net_profit'] / latest['revenue']        return metrics    def _generate_insights(self, metrics: Dict[str, Any]) -> List[Dict[str, Any]]:        """生成分析洞察"""        insights = []        # 盈利能力洞察        profitability = metrics.get('profitability', {})        if 'gross_margin' in profitability:            gm = profitability['gross_margin']            if gm > 0.4:                insights.append({                    'category': '盈利能力',                    'insight': f'毛利率达到{gm:.1%}，处于行业领先水平',                    'trend': 'positive',                    'priority': 'high'                })            elif gm < 0.2:                insights.append({                    'category': '盈利能力',                    'insight': f'毛利率仅为{gm:.1%}，盈利能力有待提升',                    'trend': 'negative',                    'priority': 'high'                })        # 增长性洞察        growth = metrics.get('growth', {})        if 'revenue_growth' in growth:            rg = growth['revenue_growth']            if rg > 0.3:                insights.append({                    'category': '增长性',                    'insight': f'收入增长率{rg:.1%}，增长势头强劲',                    'trend': 'positive',                    'priority': 'high'                })            elif rg < 0:                insights.append({                    'category': '增长性',                    'insight': f'收入增长率为负（{rg:.1%}），需关注业务发展',                    'trend': 'negative',                    'priority': 'high'                })        return insights    def _generate_recommendations(self, metrics: Dict[str, Any],                                 insights: List[Dict[str, Any]]) -> List[Dict[str, Any]]:        """生成建议措施"""        recommendations = []        # 根据洞察生成建议        for insight in insights:            if insight['category'] == '盈利能力' and insight['trend'] == 'negative':                recommendations.append({                    'category': '成本控制',                    'items': [                        '优化供应链管理，降低采购成本',                        '提高生产效率，降低单位成本',                        '控制行政费用，提高费用效率'                    ]                })            if insight['category'] == '增长性' and insight['trend'] == 'negative':                recommendations.append({                    'category': '收入增长',                    'items': [                        '拓展新客户群体，提高市场覆盖率',                        '优化产品定价策略，提升客单价',                        '加强渠道合作，扩大销售网络'                    ]                })        # 如果没有生成建议，使用默认建议        if not recommendations:            recommendations = [                {                    'category': '持续改进',                    'items': [                        '持续关注财务指标变化，及时调整经营策略',                        '加强预算管理，提高资金使用效率',                        '优化业务流程，提升运营效率'                    ]                }            ]        return recommendations

# core/chart_generator.pyimport matplotlib.pyplot as pltimport matplotlibfrom matplotlib import font_managerimport seaborn as snsfrom typing import Dict, List, Optional, Tuple, Anyfrom pathlib import Pathimport pandas as pdimport numpy as npimport loggingfrom datetime import datetime# 设置中文字体try:    # Windows系统    font_path = "C:/Windows/Fonts/msyh.ttc"  # 微软雅黑    font_prop = font_manager.FontProperties(fname=font_path)    matplotlib.rcParams['font.sans-serif'] = [font_prop.get_name()]    matplotlib.rcParams['axes.unicode_minus'] = Falseexcept:    try:        # macOS系统        font_path = "/System/Library/Fonts/PingFang.ttc"        font_prop = font_manager.FontProperties(fname=font_path)        matplotlib.rcParams['font.sans-serif'] = [font_prop.get_name()]        matplotlib.rcParams['axes.unicode_minus'] = False    except:        passclass FinancialChartGenerator:    """财务图表生成器"""    def __init__(self, output_dir: str = "output/charts"):        self.output_dir = Path(output_dir)        self.output_dir.mkdir(parents=True, exist_ok=True)        self.logger = logging.getLogger(__name__)        # 设置matplotlib样式        self._set_matplotlib_style()    def _set_matplotlib_style(self):        """设置matplotlib样式"""        plt.style.use('seaborn-v0_8-whitegrid')        # 设置企业级配色方案        self.colors = {            'primary': '#2E74B5',    # 主色-蓝色            'secondary': '#4472C4',  # 辅色-浅蓝            'tertiary': '#70AD47',   # 第三色-绿色            'quaternary': '#FFC000', # 第四色-黄色            'quinary': '#C00000',    # 第五色-红色            'text': '#404040',       # 文字色            'grid': '#D9D9D9',       # 网格色            'background': '#FFFFFF'  # 背景色        }        # 设置全局参数        plt.rcParams.update({            'figure.figsize': (10, 6),            'figure.dpi': 300,            'savefig.dpi': 300,            'savefig.bbox': 'tight',            'savefig.pad_inches': 0.1,            'axes.titlesize': 14,            'axes.labelsize': 12,            'xtick.labelsize': 10,            'ytick.labelsize': 10,            'legend.fontsize': 10,            'grid.alpha': 0.3        })    def generate_revenue_trend_chart(self, data: pd.DataFrame,                                    output_name: str = "revenue_trend.png") -> Path:        """生成收入趋势图"""        fig, (ax1, ax2) = plt.subplots(2, 1, figsize=(12, 10))        # 确保有period列        if 'period' not in data.columns and len(data) > 0:            if 'date' in data.columns:                data = data.rename(columns={'date': 'period'})            elif '月份' in data.columns:                data = data.rename(columns={'月份': 'period'})            elif '季度' in data.columns:                data = data.rename(columns={'季度': 'period'})        periods = data['period'].astype(str).tolist()        # 第一张图：收入趋势        if 'revenue' in data.columns:            revenues = data['revenue'].tolist()            ax1.plot(periods, revenues,                     color=self.colors['primary'],                     marker='o',                     linewidth=2.5,                    markersize=8,                    label='营业收入')            # 填充区域            ax1.fill_between(periods, revenues, alpha=0.2, color=self.colors['primary'])            # 添加数据标签            for i, (period, revenue) in enumerate(zip(periods, revenues)):                ax1.text(period, revenue, f'{revenue:,.0f}',                         ha='center', va='bottom', fontsize=9)        ax1.set_title('营业收入趋势', fontsize=16, fontweight='bold', pad=20)        ax1.set_xlabel('期间', fontsize=12)        ax1.set_ylabel('金额（万元）', fontsize=12)        ax1.legend(fontsize=11, loc='upper left')        ax1.grid(True, alpha=0.3)        # 格式化y轴标签        ax1.yaxis.set_major_formatter(plt.FuncFormatter(lambda x, p: format(int(x), ',')))        # 旋转x轴标签        plt.setp(ax1.get_xticklabels(), rotation=45, ha='right')        # 第二张图：增长率        if 'revenue_growth' in data.columns or len(data) > 1:            if 'revenue_growth' in data.columns:                growth_rates = data['revenue_growth'].tolist()            else:                # 计算环比增长率                revenues = data['revenue'].tolist()                growth_rates = []                for i in range(len(revenues)):                    if i == 0:                        growth_rates.append(0)                    else:                        growth = (revenues[i] - revenues[i-1]) / revenues[i-1]                        growth_rates.append(growth)            colors = [self.colors['tertiary'] if x >= 0 else self.colors['quinary']                      for x in growth_rates]            bars = ax2.bar(periods, [x * 100 for x in growth_rates],                           color=colors, alpha=0.8)            # 在柱子上添加标签            for bar, rate in zip(bars, growth_rates):                height = bar.get_height()                ax2.text(bar.get_x() + bar.get_width()/2.,                         height + (0.5 if height >= 0 else -1),                        f'{rate:+.1%}',                        ha='center', va='bottom' if height >= 0 else 'top',                        fontsize=9, fontweight='bold')        ax2.set_title('收入增长率', fontsize=16, fontweight='bold', pad=20)        ax2.set_xlabel('期间', fontsize=12)        ax2.set_ylabel('增长率（%）', fontsize=12)        ax2.axhline(y=0, color='black', linestyle='-', linewidth=0.5, alpha=0.5)        ax2.grid(True, alpha=0.3, axis='y')        # 旋转x轴标签        plt.setp(ax2.get_xticklabels(), rotation=45, ha='right')        plt.tight_layout()        # 保存图表        output_path = self.output_dir / output_name        plt.savefig(output_path, dpi=300, bbox_inches='tight')        plt.close()        self.logger.info(f"收入趋势图已生成: {output_path}")        return output_path    def generate_profitability_chart(self, data: pd.DataFrame,                                   output_name: str = "profitability_analysis.png") -> Path:        """生成盈利能力分析图"""        fig, axes = plt.subplots(2, 2, figsize=(14, 10))        axes = axes.flatten()        # 定义指标和颜色        metrics_config = [            {'key': 'gross_margin', 'name': '毛利率', 'color': self.colors['primary']},            {'key': 'operating_margin', 'name': '营业利润率', 'color': self.colors['secondary']},            {'key': 'net_margin', 'name': '净利润率', 'color': self.colors['tertiary']},            {'key': 'roe', 'name': '净资产收益率', 'color': self.colors['quaternary']}        ]        for idx, config in enumerate(metrics_config):            ax = axes[idx]            metric_key = config['key']            metric_name = config['name']            color = config['color']            if metric_key in data.columns:                # 获取数据                periods = data['period'].astype(str).tolist()                values = data[metric_key].tolist()                # 创建折线图                line, = ax.plot(periods, [x * 100 for x in values],                                color=color, marker='o', linewidth=2.5, markersize=6)                # 填充区域                ax.fill_between(periods, [x * 100 for x in values], alpha=0.2, color=color)                # 添加数据标签                for i, (period, value) in enumerate(zip(periods, values)):                    ax.text(period, value * 100, f'{value:.1%}',                            ha='center', va='bottom', fontsize=8)                # 添加目标线（假设目标为行业平均）                if metric_key == 'gross_margin':                    target = 0.3  # 30%毛利率                elif metric_key == 'operating_margin':                    target = 0.15  # 15%营业利润率                elif metric_key == 'net_margin':                    target = 0.1  # 10%净利润率                else:                    target = 0.12  # 12%ROE                ax.axhline(y=target * 100, color='red', linestyle='--',                           linewidth=1, alpha=0.7, label=f'目标: {target:.1%}')                # 设置标题和标签                ax.set_title(metric_name, fontsize=12, fontweight='bold', pad=10)                ax.set_xlabel('期间')                ax.set_ylabel('百分比（%）')                # 设置x轴刻度                ax.set_xticks(range(len(periods)))                ax.set_xticklabels(periods, rotation=45, ha='right')                # 添加图例                ax.legend(fontsize=8)                # 添加网格                ax.grid(True, alpha=0.3)            else:                ax.text(0.5, 0.5, f'无{metric_name}数据',                        ha='center', va='center', transform=ax.transAxes)                ax.set_title(metric_name, fontsize=12, fontweight='bold')        plt.suptitle('盈利能力指标趋势分析', fontsize=16, fontweight='bold', y=1.02)        plt.tight_layout()        output_path = self.output_dir / output_name        plt.savefig(output_path, dpi=300, bbox_inches='tight')        plt.close()        self.logger.info(f"盈利能力分析图已生成: {output_path}")        return output_path    def generate_kpi_gauge_chart(self, kpi_data:Dict[str, Any],                               output_name: str = "kpi_gauges.png") -> Path:        """生成KPI仪表盘图表"""        fig, axes = plt.subplots(2, 3, figsize=(15, 10))        axes = axes.flatten()        kpis = kpi_data.get('kpis', [])        for idx, (ax, kpi) in enumerate(zip(axes, kpis)):            if idx >= len(kpis):                ax.axis('off')                continue            kpi_name = kpi.get('name', f'KPI{idx+1}')            current_value = kpi.get('value', 0)            target_value = kpi.get('target', 100)            unit = kpi.get('unit', '')            # 计算完成率            completion_rate = min(current_value / target_value, 1.5)  # 最大显示150%            # 创建仪表盘            self._create_single_gauge(ax, kpi_name, current_value,                                      target_value, completion_rate, unit)        # 隐藏多余的子图        for idx in range(len(kpis), len(axes)):            axes[idx].axis('off')        plt.suptitle('KPI仪表盘', fontsize=16, fontweight='bold', y=1.02)        plt.tight_layout()        output_path = self.output_dir / output_name        plt.savefig(output_path, dpi=300, bbox_inches='tight')        plt.close()        self.logger.info(f"KPI仪表盘图表已生成: {output_path}")        return output_path    def _create_single_gauge(self, ax, title: str, current: float,                            target: float, completion: float, unit: str):        """创建单个仪表盘"""        # 清除坐标轴        ax.clear()        # 设置坐标轴范围        ax.set_xlim(-1.5, 1.5)        ax.set_ylim(-1.5, 1.5)        ax.set_aspect('equal')        # 隐藏坐标轴        ax.axis('off')        # 绘制外圆        circle = plt.Circle((0, 0), 1.2, color='lightgray', fill=True, alpha=0.3)        ax.add_patch(circle)        # 绘制进度弧        if completion >= 1.0:            # 超额完成，使用完整绿色弧            arc_color = self.colors['tertiary']  # 绿色            arc_end = 180        elif completion >= 0.8:            # 接近目标，使用黄色弧            arc_color = self.colors['quaternary']  # 黄色            arc_end = completion * 180        else:            # 未达标，使用红色弧            arc_color = self.colors['quinary']  # 红色            arc_end = completion * 180        # 绘制进度弧        arc = plt.Arc((0, 0), 2, 2, theta1=0, theta2=arc_end,                      color=arc_color, linewidth=20, alpha=0.8)        ax.add_patch(arc)        # 添加标题        ax.text(0, 1.0, title, ha='center', va='center',                fontsize=12, fontweight='bold')        # 添加当前值        ax.text(0, 0.3, f'{current:.1f}{unit}', ha='center', va='center',               fontsize=20, fontweight='bold', color=self.colors['text'])        # 添加目标值        ax.text(0, -0.1, f'目标: {target:.1f}{unit}', ha='center', va='center',               fontsize=10, color='gray')        # 添加完成率        completion_text = f'完成率: {completion*100:.1f}%'        ax.text(0, -0.4, completion_text, ha='center', va='center',               fontsize=10, color=self.colors['text'])        # 添加状态指示        if completion >= 1.0:            status = '✓ 超额完成'            status_color = self.colors['tertiary']        elif completion >= 0.8:            status = '⚠ 接近目标'            status_color = self.colors['quaternary']        else:            status = '✗ 未达标'            status_color = self.colors['quinary']        ax.text(0, -0.7, status, ha='center', va='center',               fontsize=10, fontweight='bold', color=status_color)

' Module: PPTPresentationGeneratorOption Explicit' 演示文稿配置Private Type PPTConfig    CompanyName As String    ReportTitle As String    ReportPeriod As String    Author As String    TemplatePath As String    OutputPath As String    DataSource As StringEnd Type' 主生成过程Sub GenerateFinancialPresentation()    Dim config As PPTConfig    Dim pptApp As Object    Dim pptPres As Object    Dim wbData As Workbook    Dim wsData As Worksheet    Dim startTime As Double    Dim endTime As Double    ' 记录开始时间    startTime = Timer    ' 设置错误处理    On Error GoTo ErrorHandler    ' 1. 加载配置    config = LoadPPTConfig    ' 2. 打开数据工作簿    Set wbData = ThisWorkbook    Set wsData = wbData.Worksheets("财务数据")    ' 3. 创建PowerPoint应用    Set pptApp = CreateObject("PowerPoint.Application")    pptApp.Visible = True    pptApp.DisplayAlerts = False    ' 4. 创建新演示文稿    If config.TemplatePath <> "" And Dir(config.TemplatePath) <> "" Then        ' 使用模板        Set pptPres = pptApp.Presentations.Open(config.TemplatePath)    Else        ' 创建空白演示文稿        Set pptPres = pptApp.Presentations.Add    End If    ' 5. 设置演示文稿属性    With pptPres        .Title = config.ReportTitle        .Author = config.Author        .Company = config.CompanyName    End With    ' 6. 生成幻灯片    GenerateSlides pptPres, config, wsData    ' 7. 保存演示文稿    If config.OutputPath = "" Then        config.OutputPath = ThisWorkbook.Path & "\财务汇报_" & Format(Date, "yyyymmdd") & ".pptx"    End If    pptPres.SaveAs config.OutputPath    ' 8. 计算耗时    endTime = Timer    Dim timeUsed As Double    timeUsed = endTime - startTime    MsgBox "财务汇报PPT生成完成！" & vbCrLf & _           "文件保存至: " & config.OutputPath & vbCrLf & _           "生成耗时: " & Format(timeUsed, "0.0") & " 秒", _           vbInformation, "生成完成"    Exit SubErrorHandler:    MsgBox "错误 " & Err.Number & ": " & Err.Description, vbCritical, "错误"    ' 清理对象    If Not pptPres Is Nothing Then        pptPres.Close        Set pptPres = Nothing    End If    If Not pptApp Is Nothing Then        pptApp.Quit        Set pptApp = Nothing    End IfEnd Sub' 加载配置Private Function LoadPPTConfig() As PPTConfig    Dim config As PPTConfig    Dim wsConfig As Worksheet    On Error Resume Next    Set wsConfig = ThisWorkbook.Worksheets("PPT配置")    On Error GoTo 0    If wsConfig Is Nothing Then        ' 使用默认配置        With config            .CompanyName = "示例公司"            .ReportTitle = "财务分析报告"            .ReportPeriod = "2024年第一季度"            .Author = "财务部"            .TemplatePath = ThisWorkbook.Path & "\templates\finance_template.potx"            .OutputPath = ThisWorkbook.Path & "\output\财务汇报_" & Format(Date, "yyyymmdd") & ".pptx"            .DataSource = "财务数据"        End With    Else        ' 从工作表读取配置        With config            .CompanyName = wsConfig.Range("B2").Value            .ReportTitle = wsConfig.Range("B3").Value            .ReportPeriod = wsConfig.Range("B4").Value            .Author = wsConfig.Range("B5").Value            .TemplatePath = wsConfig.Range("B6").Value            .OutputPath = wsConfig.Range("B7").Value            .DataSource = wsConfig.Range("B8").Value        End With    End If    LoadPPTConfig = configEnd Function' 生成所有幻灯片Private Sub GenerateSlides(pptPres As Object, config As PPTConfig, wsData As Worksheet)    ' 1. 生成封面页    GenerateTitleSlide pptPres, config    ' 2. 生成目录页    GenerateAgendaSlide pptPres    ' 3. 生成执行摘要    GenerateExecutiveSummary pptPres, config, wsData    ' 4. 生成财务亮点    GenerateFinancialHighlights pptPres, wsData    ' 5. 生成详细分析    GenerateAnalysisSlides pptPres, wsData    ' 6. 生成建议页    GenerateRecommendationsSlide pptPres, wsData    ' 7. 生成附录    GenerateAppendixSlide pptPres, configEnd Sub' 生成封面页Private Sub GenerateTitleSlide(pptPres As Object, config As PPTConfig)    Dim sld As Object    Dim shp As Object    ' 添加标题页    Set sld = pptPres.Slides.Add(1, 1)  ' ppLayoutTitle    ' 设置标题    Set shp = sld.Shapes.Title    If Not shp Is Nothing Then        shp.TextFrame.TextRange.Text = config.ReportTitle        With shp.TextFrame.TextRange.Font            .Name = "微软雅黑"            .Size = 44            .Bold = True            .Color.RGB = RGB(0, 0, 0)        End With    End If    ' 设置副标题    If sld.Shapes.Count >= 2 Then        Set shp = sld.Shapes(2)  ' 副标题占位符        shp.TextFrame.TextRange.Text = config.CompanyName & vbCrLf & _                                       "报告期间: " & config.ReportPeriod & vbCrLf & _                                       "生成日期: " & Format(Date, "yyyy年mm月dd日")        With shp.TextFrame.TextRange.Font            .Name = "微软雅黑"            .Size = 20            .Color.RGB = RGB(128, 128, 128)        End With    End IfEnd Sub' 生成目录页Private Sub GenerateAgendaSlide(pptPres As Object)    Dim sld As Object    Dim shp As Object    Dim i As Integer    ' 添加目录页    Set sld = pptPres.Slides.Add(2, 2)  ' ppLayoutTitleAndContent    ' 设置标题    Set shp = sld.Shapes.Title    shp.TextFrame.TextRange.Text = "会议议程"    With shp.TextFrame.TextRange.Font        .Name = "微软雅黑"        .Size = 32        .Bold = True    End With    ' 设置内容    Set shp = sld.Shapes.Placeholders(2)  ' 内容占位符    Dim agendaText As String    agendaText = "1. 开场与目标回顾" & vbCrLf & _                 "2. 财务业绩概览" & vbCrLf & _                 "3. 业务单元分析" & vbCrLf & _                 "4. 关键问题讨论" & vbCrLf & _                 "5. 行动计划与下一步" & vbCrLf & _                 "6. 问答环节"    shp.TextFrame.TextRange.Text = agendaText    With shp.TextFrame.TextRange.Font        .Name = "微软雅黑"        .Size = 20    End With    ' 设置项目符号    For i = 1 To shp.TextFrame.TextRange.Paragraphs.Count        shp.TextFrame.TextRange.Paragraphs(i).ParagraphFormat.Bullet.Visible = True    Next iEnd Sub' 生成执行摘要Private Sub GenerateExecutiveSummary(pptPres As Object, config As PPTConfig, wsData As Worksheet)    Dim sld As Object    Dim shp As Object    Dim revenue As Double, growth As Double, profit As Double    Dim lastRow As Long, prevRow As Long    ' 添加幻灯片    Set sld = pptPres.Slides.Add(pptPres.Slides.Count + 1, 2)  ' ppLayoutTitleAndContent    ' 设置标题    Set shp = sld.Shapes.Title    shp.TextFrame.TextRange.Text = "执行摘要"    With shp.TextFrame.TextRange.Font        .Name = "微软雅黑"        .Size = 32        .Bold = True    End With    ' 获取数据    lastRow = wsData.Cells(wsData.Rows.Count, "B").End(xlUp).Row    If lastRow >= 2 Then        revenue = wsData.Cells(lastRow, 2).Value        profit = wsData.Cells(lastRow, 6).Value        If lastRow >= 3 Then            prevRow = lastRow - 1            Dim prevRevenue As Double            prevRevenue = wsData.Cells(prevRow, 2).Value            If prevRevenue <> 0 Then                growth = (revenue - prevRevenue) / prevRevenue            End If        End If    End If    ' 设置内容    Set shp = sld.Shapes.Placeholders(2)    Dim summaryText As String    summaryText = "报告期内，公司实现营业收入" & Format(revenue, "#,##0") & "万元"    If growth > 0 Then        summaryText = summaryText & "，同比增长" & Format(growth, "0.0%")    End If    summaryText = summaryText & "。" & vbCrLf & vbCrLf    summaryText = summaryText & "实现净利润" & Format(profit, "#,##0") & "万元。" & vbCrLf & vbCrLf    summaryText = summaryText & "公司整体经营状况良好，主要财务指标保持稳定增长。"    shp.TextFrame.TextRange.Text = summaryText    With shp.TextFrame.TextRange.Font        .Name = "微软雅黑"        .Size = 20    End With    ' 设置行距    shp.TextFrame.TextRange.ParagraphFormat.LineRuleWithin = True    shp.TextFrame.TextRange.ParagraphFormat.SpaceWithin = 1.5End Sub' 生成财务亮点Private Sub GenerateFinancialHighlights(pptPres As Object, wsData As Worksheet)    Dim sld As Object    Dim shp As Object    Dim chartObj As ChartObject    Dim slideWidth As Single, slideHeight As Single    Dim i As Integer    ' 添加空白幻灯片    Set sld = pptPres.Slides.Add(pptPres.Slides.Count + 1, 12)  ' ppLayoutBlank    ' 获取幻灯片尺寸    slideWidth = pptPres.PageSetup.SlideWidth    slideHeight = pptPres.PageSetup.SlideHeight    ' 添加标题    Set shp = sld.Shapes.AddTextbox(1, 0, 0, slideWidth, 100)    shp.TextFrame.TextRange.Text = "财务亮点"    With shp.TextFrame.TextRange        .Font.Name = "微软雅黑"        .Font.Size = 32        .Font.Bold = True        .ParagraphFormat.Alignment = 1  ' 居中    End With    shp.Top = 20    ' 从Excel复制图表    On Error Resume Next    Dim wsCharts As Worksheet    Set wsCharts = ThisWorkbook.Worksheets("图表")    On Error GoTo 0    If Not wsCharts Is Nothing Then        ' 计算图表位置        Dim chartWidth As Single, chartHeight As Single        chartWidth = slideWidth / 2 - 40        chartHeight = (slideHeight - 150) / 2 - 20        ' 复制每个图表        i = 1        For Each chartObj In wsCharts.ChartObjects            If i > 4 Then Exit For  ' 最多显示4个图表            ' 计算位置            Dim row As Integer, col As Integer            row = (i - 1) \ 2            col = (i - 1) Mod 2            Dim leftPos As Single, topPos As Single            leftPos = 20 + col * (chartWidth + 20)            topPos = 120 + row * (chartHeight + 20)            ' 复制图表            chartObj.Copy            ' 粘贴到幻灯片            sld.Shapes.Paste            ' 设置位置和大小            With sld.Shapes(sld.Shapes.Count)                .Left = leftPos                .Top = topPos                .Width = chartWidth                .Height = chartHeight            End With            i = i + 1        Next chartObj    Else        ' 如果没有图表，创建文本亮点        Dim highlights As Variant        highlights = Array( _            "营业收入实现稳定增长", _            "毛利率持续改善", _            "净利润创历史新高", _            "现金流状况健康" _        )        For i = 0 To UBound(highlights)            Set shp = sld.Shapes.AddTextbox(1, 0, 0, slideWidth / 2 - 40, 60)            shp.TextFrame.TextRange.Text = highlights(i)            With shp.TextFrame.TextRange                .Font.Name = "微软雅黑"                .Font.Size = 20                .ParagraphFormat.Alignment = 1            End With            ' 设置位置            row = i \ 2            col = i Mod 2            shp.Left = 20 + col * (slideWidth / 2)            shp.Top = 120 + row * 80            ' 添加背景            shp.Fill.ForeColor.RGB = RGB(242, 242, 242)            shp.Line.ForeColor.RGB = RGB(200, 200, 200)        Next i    End IfEnd Sub' 生成分析幻灯片Private Sub GenerateAnalysisSlides(pptPres As Object, wsData As Worksheet)    ' 收入分析页    GenerateRevenueAnalysisSlide pptPres, wsData    ' 盈利能力分析页    GenerateProfitabilitySlide pptPres, wsData    ' 这里可以继续添加其他分析页End Sub' 生成收入分析页Private Sub GenerateRevenueAnalysisSlide(pptPres As Object, wsData As Worksheet)    Dim sld As Object    Dim shp As Object    Dim lastRow As Long    Dim i As Integer    ' 添加幻灯片    Set sld = pptPres.Slides.Add(pptPres.Slides.Count + 1, 2)  ' ppLayoutTitleAndContent    ' 设置标题    Set shp = sld.Shapes.Title    shp.TextFrame.TextRange.Text = "收入分析"    With shp.TextFrame.TextRange.Font        .Name = "微软雅黑"        .Size = 32        .Bold = True    End With    ' 创建表格    lastRow = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row    ' 获取最近5个期间的数据    Dim startRow As Long    startRow = Application.WorksheetFunction.Max(2, lastRow - 4)  ' 最多显示5行    Dim numRows As Long, numCols As Long    numRows = lastRow - startRow + 2  ' 数据行 + 表头    numCols = 6  ' 假设有6列数据    ' 添加表格    Set shp = sld.Shapes.AddTable(numRows, numCols, 50, 100, 600, 300)    ' 设置表头    Dim headers As Variant    headers = Array("期间", "营业收入", "营业成本", "毛利润", "营业费用", "净利润")    For i = 1 To numCols        shp.Table.Cell(1, i).Shape.TextFrame.TextRange.Text = headers(i - 1)        With shp.Table.Cell(1, i).Shape.TextFrame.TextRange.Font            .Name = "微软雅黑"            .Size = 12            .Bold = True        End With        shp.Table.Cell(1, i).Shape.Fill.ForeColor.RGB = RGB(46, 116, 181)  ' 蓝色背景        shp.Table.Cell(1, i).Shape.TextFrame.TextRange.Font.Color.RGB = RGB(255, 255, 255)  ' 白色文字    Next i    ' 填充数据    Dim rowIndex As Long, colIndex As Long    Dim dataRow As Long    For rowIndex = 2 To numRows        dataRow = startRow + rowIndex - 2        ' 第一列：期间        shp.Table.Cell(rowIndex, 1).Shape.TextFrame.TextRange.Text = _            wsData.Cells(dataRow, 1).Value        ' 其他列：财务数据        For colIndex = 2 To numCols            Dim cellValue As Variant            cellValue = wsData.Cells(dataRow, colIndex).Value            If IsNumeric(cellValue) Then                shp.Table.Cell(rowIndex, colIndex).Shape.TextFrame.TextRange.Text = _                    Format(cellValue, "#,##0")            Else                shp.Table.Cell(rowIndex, colIndex).Shape.TextFrame.TextRange.Text = _                    cellValue            End If        Next colIndex        ' 设置行样式        For colIndex = 1 To numCols            With shp.Table.Cell(rowIndex, colIndex).Shape.TextFrame.TextRange.Font                .Name = "微软雅黑"                .Size = 11            End With            ' 隔行变色            If rowIndex Mod 2 = 0 Then                shp.Table.Cell(rowIndex, colIndex).Shape.Fill.ForeColor.RGB = RGB(242, 242, 242)            Else                shp.Table.Cell(rowIndex, colIndex).Shape.Fill.ForeColor.RGB = RGB(255, 255, 255)            End If        Next colIndex    Next rowIndex    ' 设置表格边框    For rowIndex = 1 To numRows        For colIndex = 1 To numCols            shp.Table.Cell(rowIndex, colIndex).Shape.Line.ForeColor.RGB = RGB(200, 200, 200)            shp.Table.Cell(rowIndex, colIndex).Shape.Line.Weight = 0.5        Next colIndex    Next rowIndexEnd Sub' 生成盈利能力分析页Private Sub GenerateProfitabilitySlide(pptPres As Object, wsData As Worksheet)    Dim sld As Object    Dim shp As Object    ' 添加幻灯片    Set sld = pptPres.Slides.Add(pptPres.Slides.Count + 1, 2)  ' ppLayoutTitleAndContent    ' 设置标题    Set shp = sld.Shapes.Title    shp.TextFrame.TextRange.Text = "盈利能力分析"    With shp.TextFrame.TextRange.Font        .Name = "微软雅黑"        .Size = 32        .Bold = True    End With    ' 添加文本内容    Set shp = sld.Shapes.Placeholders(2)    shp.TextFrame.TextRange.Text = "盈利能力指标:" & vbCrLf & vbCrLf & _        "1. 毛利率: 35.8%" & vbCrLf & _        "2. 营业利润率: 18.5%" & vbCrLf & _        "3. 净利润率: 12.8%" & vbCrLf & vbCrLf & _        "分析结论:" & vbCrLf & _        "• 毛利率持续改善，成本控制效果显著" & vbCrLf & _        "• 净利润率保持行业领先水平" & vbCrLf & _        "• 整体盈利能力稳步提升"    With shp.TextFrame.TextRange.Font        .Name = "微软雅黑"        .Size = 20    End WithEnd Sub' 生成建议页Private Sub GenerateRecommendationsSlide(pptPres As Object, wsData As Worksheet)    Dim sld As Object    Dim shp As Object    ' 添加幻灯片    Set sld = pptPres.Slides.Add(pptPres.Slides.Count + 1, 2)  ' ppLayoutTitleAndContent    ' 设置标题    Set shp = sld.Shapes.Title    shp.TextFrame.TextRange.Text = "建议措施"    With shp.TextFrame.TextRange.Font        .Name = "微软雅黑"        .Size = 32        .Bold = True    End With    ' 添加建议内容    Set shp = sld.Shapes.Placeholders(2)    shp.TextFrame.TextRange.Text = _        "1. 收入增长" & vbCrLf & _        "   • 拓展新客户群体" & vbCrLf & _        "   • 优化产品定价策略" & vbCrLf & _        "   • 加强渠道合作" & vbCrLf & vbCrLf & _        "2. 成本控制" & vbCrLf & _        "   • 优化供应链管理" & vbCrLf & _        "   • 提高生产效率" & vbCrLf & _        "   • 控制行政费用" & vbCrLf & vbCrLf & _        "3. 现金流管理" & vbCrLf & _        "   • 加强应收账款管理" & vbCrLf & _        "   • 优化库存管理" & vbCrLf & _        "   • 合理安排资金支付"    With shp.TextFrame.TextRange.Font        .Name = "微软雅黑"        .Size = 20    End With    ' 设置项目符号    Dim i As Integer    For i = 1 To shp.TextFrame.TextRange.Paragraphs.Count        shp.TextFrame.TextRange.Paragraphs(i).ParagraphFormat.Bullet.Visible = True    Next iEnd Sub' 生成附录页Private Sub GenerateAppendixSlide(pptPres As Object, config As PPTConfig)    Dim sld As Object    Dim shp As Object    ' 添加幻灯片    Set sld = pptPres.Slides.Add(pptPres.Slides.Count + 1, 2)  ' ppLayoutTitleAndContent    ' 设置标题    Set shp = sld.Shapes.Title    shp.TextFrame.TextRange.Text = "附录"    With shp.TextFrame.TextRange.Font        .Name = "微软雅黑"        .Size = 32        .Bold = True    End With    ' 添加附录内容    Set shp = sld.Shapes.Placeholders(2)    shp.TextFrame.TextRange.Text = _        "数据来源: 财务系统、业务系统、市场数据" & vbCrLf & _        "统计周期: " & config.ReportPeriod & vbCrLf & _        "计算口径: 采用会计准则标准" & vbCrLf & _        "联系方式: 如有疑问，请联系财务部" & vbCrLf & _        "生成时间: " & Now    With shp.TextFrame.TextRange.Font        .Name = "微软雅黑"        .Size = 20    End WithEnd Sub