excel - 2010 Access - 如何在 Excel 文件中添加和使用形状

Question

我想在 Excel 工作表中添加形状并通过 2010 Access vba 修改它们。

我根据Excel“记录宏”编写的代码是:

StrSheetName = "Menu"
wkbModels.Sheets.Add(before:=wkbModels.Sheets("Models")).Name = StrSheetName
Set wksModelsMenu = wkbModels.Sheets(StrSheetName)

With wksModelsMenu
    iLeft = 1
    iTop = 1
    iWidth = 125
    iHeight = 200
    .Shapes.AddPicture fDirectory & "logo.jpg", False, True, iLeft, iTop, iWidth, iHeight
    iLeft = 240
    iTop = 1
    iWidth = 300
    iHeight = 125
    .Shapes.AddShape(msoShapeRoundedRectangle, iLeft, iTop, iWidth, iHeight).Select
    .Shapes(1).Range.ShapeStyle = msoShapeStylePreset10
    .Shapes(1).Range.TextFrame2.TextRange.Font.Bold = msoTrue
    .Shapes(1).Range.TextFrame2.VerticalAnchor = msoAnchorMiddle
    .Shapes(1).Range.TextFrame2.TextRange.Characters.Text = _
                "TEST TEST TEST"
    .Shapes(1).Range.TextFrame2.TextRange.Characters.ParagraphFormat.Alignment = msoAlignCenter
    .Shapes(1).Range.TextFrame2.TextRange.Characters.Font.Bold = msoTrue
End With

在“.Shapes(1).Range.ShapeStyle...”和“.Shapes(1)”之后。语句我收到错误“对象不支持此属性或方法”。删除“(1)”会产生编译错误。

mso 库已安装，并且引用的项目(即 msoShapeStylePreset10)具有正确的值。

关于我需要做什么有什么想法吗？

Answer 1

因此，无论其值(value)如何，我发现如果我将索引从“形状”之后移动到“范围”之后，它就会根据需要工作。

这个:

Shapes(1).Range.....

更改为:

Shapes.Range(1)

当然，如果您查看代码，您会发现第二个形状才是我真正想要处理的。

Shapes(2).Range

没用。

Shapes.Range(2)

工作完美。