Access 2010中通过VBA在Excel工作表添加及修改形状的技术问询

我来帮你把这段Access 2010 VBA操作Excel工作表添加/修改形状的代码整理完善，同时拆解关键逻辑，方便你后续调整扩展：

首先先把你提供的代码补全并调整为可运行的版本，还加了常用的形状修改逻辑：

Sub ManageExcelShapes()
    ' 声明所需对象与变量
    Dim wkbModels As Workbook
    Dim wksModelsMenu As Worksheet
    Dim StrSheetName As String
    Dim fDirectory As String
    Dim iLeft As Integer, iTop As Integer, iWidth As Integer, iHeight As Integer
    Dim targetShape As Shape
    
    ' 替换为你的Excel工作簿获取方式：可以是已打开的，也可以用Workbooks.Open("C:\路径\文件名.xlsx")
    Set wkbModels = GetObject(, "Excel.Application").ActiveWorkbook
    StrSheetName = "Menu"
    fDirectory = "C:\YourImageFolder\" ' 替换成你的logo图片所在文件夹路径
    
    ' 在指定位置添加新工作表并重命名
    wkbModels.Sheets.Add(Before:=wkbModels.Sheets("Models")).Name = StrSheetName
    Set wksModelsMenu = wkbModels.Sheets(StrSheetName)
    
    ' 开始操作工作表中的形状
    With wksModelsMenu
        ' 1. 添加图片形状（你的logo）
        iLeft = 1
        iTop = 1
        iWidth = 125
        iHeight = 200
        .Shapes.AddPicture _
            Filename:=fDirectory & "logo.jpg", _
            LinkToFile:=False, _
            SaveWithDocument:=True, _
            Left:=iLeft, Top:=iTop, Width:=iWidth, Height:=iHeight
        
        ' 2. 添加矩形形状并修改样式
        iLeft = 240
        iTop = 1
        iWidth = 300
        iHeight = 125
        Set targetShape = .Shapes.AddShape( _
            Type:=msoShapeRectangle, _
            Left:=iLeft, Top:=iTop, Width:=iWidth, Height:=iHeight)
        
        ' 自定义矩形样式：填充色、边框、文字
        With targetShape
            .Fill.ForeColor.RGB = RGB(255, 204, 153) ' 设置浅橙色填充
            .Line.Weight = 2 ' 加粗边框
            .Line.ForeColor.RGB = RGB(102, 51, 0) ' 深棕色边框
            .TextFrame2.TextRange.Text = "功能菜单" ' 添加文字内容
            .TextFrame2.TextRange.Font.Size = 16 ' 文字大小
            .TextFrame2.TextRange.Font.Bold = True ' 文字加粗
            .TextFrame2.VerticalAnchor = msoAnchorMiddle ' 文字垂直居中
            .TextFrame2.HorizontalAnchor = msoAnchorCenter ' 文字水平居中
        End With
        
        ' 3. 修改已存在的形状（比如刚才加的logo）
        With .Shapes(1)
            .Left = 10 ' 调整左边距
            .Top = 10 ' 调整上边距
            .Name = "MainLogo" ' 给形状命名，方便后续引用
        End With
    End With
    
    ' 释放对象，避免内存占用
    Set targetShape = Nothing
    Set wksModelsMenu = Nothing
    Set wkbModels = Nothing
End Sub

关键逻辑说明 #

• Excel对象引用：要在Access的VBA编辑器中，通过「工具→引用」勾选Microsoft Excel 14.0 Object Library（对应2010版本），否则需要用后期绑定（把对象声明为Object）。
• 添加工作表：Sheets.Add(Before:=...)可以精准控制新工作表的位置，这里放在名为"Models"的工作表之前，随后重命名为"Menu"。
• 添加图片：Shapes.AddPicture的参数里，LinkToFile:=False表示把图片嵌入Excel，而非链接到原文件；SaveWithDocument:=True确保图片随Excel文件一起保存。
• 修改形状样式：不管是新添加的还是已有的形状，都可以通过Shape对象的属性调整位置、尺寸、填充、边框、文字等样式，灵活度很高。
• 引用已有形状：可以通过形状的索引（比如.Shapes(1)）或者自定义名称（比如.Shapes("MainLogo")）来定位并修改目标形状。

内容的提问来源于stack exchange，提问作者LEBoyd