微信公众号双封面图自动化制作指南

诗往哥2025/6/11约 1507 字大约 5 分钟

文档概述

本技术文档详细介绍了一套利用 AI 图像生成和 PowerPoint 宏自动化技术，制作微信公众号推文双封面的全流程解决方案。该方案旨在高效生成1283×383像素的最终封面图，该尺寸能完美适配公众号文章内嵌（900×383）和外部自分享卡片（383×383）两种展示场景。

一、AI 图像生成流程

1. 图像生成指令模板

使用以下模板，您可以在支持图像生成的 AI 平台（如 DeepSeek, Coze, DALL-E 等）快速生成符合要求的两张关联图片。

你是一个图像生成助手，请根据我的简单描述，想象并详细描述两幅关联主图和缩略图，再将你的详细描述翻译成英文，并插入到以下链接的{prompt}部分：
![cover-wide-image]https://image.pollinations.ai/prompt/{prompt}?width=900&height=383&enhance=true&private=true
![cover-square-image]https://image.pollinations.ai/prompt/{prompt}?width=383&height=383&enhance=true&private=true
描述：[在此输入场景描述]

2. 操作步骤

准备指令：在 AI 平台粘贴上述模板，并将 [在此输入场景描述] 替换为您的具体创意，例如：“未来科技实验室场景，全息操作界面悬浮空中，机械臂正在处理发光的DNA链，冷蓝色调”。
获取链接：AI 将返回填充好英文 prompt 的两个 Markdown 图片链接。
下载图片：在浏览器中分别打开这两个链接，将图片下载并命名：
- 900×383 尺寸的图片保存为 cover-wide.jpg。
- 383×383 尺寸的图片保存为 cover-square.jpg。

替代方案

您也可以使用 Coze 的工作流（Bot）、豆包或 Gemini 的图像生成功能来完成此步骤。

二、PPT 自动化处理系统

1. 系统要求

组件	要求
操作系统	Windows 10/11
Office 版本	PowerPoint 2010 或更高版本
运行环境	.NET Framework 4.7.2 或更高
安全设置	启用宏执行

2. 宏安装流程

a. 创建启用宏的演示文稿

打开 PowerPoint，新建一个空白演示文稿。
将其另存为 启用宏的演示文稿 (*.pptm) 格式，建议命名为 公众号封面生成器.pptm。

b. 插入 VBA 模块

按 Alt + F11 打开 VBA 编辑器。
在左侧项目浏览器中，右键点击 "VBAProject (你的演示文稿名称)" → 插入 → 模块。
将下方的完整 VBA 代码粘贴到新创建的模块窗口中。

完整 VBA 代码

Sub MergeCovers()
    ' 定义常量和尺寸
    Const PointsPerInch As Single = 72
    Const PixelsPerInch As Single = 96
    Const ScaleFactor As Single = PointsPerInch / PixelsPerInch
    
    ' 设置幻灯片尺寸为 1283×383 像素
    With ActivePresentation.PageSetup
        .SlideWidth = 1283 * ScaleFactor
        .SlideHeight = 383 * ScaleFactor
    End With
    
    Dim inputDialog As FileDialog
    Set inputDialog = Application.FileDialog(msoFileDialogFilePicker)
    Dim wideImagePath As String, squareImagePath As String
    
    ' 选择横幅图 (900×383)
    With inputDialog
        .Title = "请选择横幅图 (900×383)"
        .Filters.Clear
        .Filters.Add "图片文件", "*.jpg;*.jpeg;*.png"
        If .Show <> -1 Then Exit Sub
        wideImagePath = .SelectedItems(1)
    End With
    
    ' 选择方形图 (383×383)
    With inputDialog
        .Title = "请选择方形图 (383×383)"
        .Filters.Clear
        .Filters.Add "图片文件", "*.jpg;*.jpeg;*.png"
        If .Show <> -1 Then Exit Sub
        squareImagePath = .SelectedItems(1)
    End With
    
    ' 清理并添加图片
    With ActivePresentation.Slides(1)
        ' 清除幻灯片上所有已有形状
        While .Shapes.Count > 0
            .Shapes(1).Delete
        Wend
        
        ' 插入横幅图并定位
        Dim wideImage As Shape
        Set wideImage = .Shapes.AddPicture(FileName:=wideImagePath, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=900 * ScaleFactor, Height:=383 * ScaleFactor)
        
        ' 插入方形图并定位
        Dim squareImage As Shape
        Set squareImage = .Shapes.AddPicture(FileName:=squareImagePath, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=wideImage.Width, Top:=0, Width:=383 * ScaleFactor, Height:=383 * ScaleFactor)
        
        ' 将两张图片组合
        .Shapes.Range(Array(wideImage.Name, squareImage.Name)).Group
    End With
    
    ' 弹出保存对话框
    Dim saveDialog As FileDialog
    Set saveDialog = Application.FileDialog(msoFileDialogSaveAs)
    With saveDialog
        .Title = "保存公众号双封面"
        .InitialFileName = "公众号封面"
        .FilterIndex = 1
        .Filters.Clear
        .Filters.Add "PNG 图片", "*.png"
        .Filters.Add "JPEG 图片", "*.jpg"
        
        If .Show = -1 Then
            Dim fullPath As String
            fullPath = .SelectedItems(1)
            
            ' 自动处理文件扩展名
            If LCase(Right(fullPath, 4)) <> ".png" And LCase(Right(fullPath, 4)) <> ".jpg" Then
                fullPath = fullPath & ".png" ' 默认为PNG
            End If
            
            ' 导出图片并提示
            ActivePresentation.Slides(1).Export fullPath, IIf(LCase(Right(fullPath, 4)) = ".jpg", "JPG", "PNG")
            MsgBox "封面已成功保存到：" & vbCrLf & fullPath, vbInformation, "操作成功"
        Else
            MsgBox "用户取消了保存操作。", vbExclamation, "操作已取消"
        End If
    End With
End Sub