Question

Visio VBA宏：我希望在程序将形状拖放到页面上之后设置形状形状数据的值。我用5个定义的数据形状字符串创建了一个十六进制形状。

我尝试搜索答案，但没有找到明确的说明

   Dim strConnection As String
Dim strCommand As String
Dim strOfficePath As String
Dim cellString As String
Dim vsoDataRecordset As Visio.DataRecordset
Dim vsoCell As Visio.Cell

strOfficePath = Visio.Application.Path

strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" _
                   & "User ID=Admin;" _
                   & "Data Source=svs2.XLSX;" _
                   & "Mode=Read;" _
                   & "Extended Properties=""HDR=YES;IMEX=1;MaxScanRows=0;Excel 12.0;"";" _
                   & "Jet OLEDB:Engine Type=34;"

strCommand = "SELECT * FROM [BaseTemplate$]"

Set vsoDataRecordset = ActiveDocument.DataRecordsets.Add(strConnection, strCommand, 0, "Data")

MsgBox "Connected Up:" & vsoDataRecordset.DataColumns(1)

'Get the row IDs of all the rows in the data recordset
lngRowIDs = vsoDataRecordset.GetDataRowIDs("")


'Iterate through all the records in the data recordset.
For lngRow = LBound(lngRowIDs) + 1 To UBound(lngRowIDs) + 1

    varRowData = vsoDataRecordset.GetRowData(lngRow)
    'varRowData = vsoDataReco


    'Drop Shape onto page
    Set shpObject = pagThisPage.Drop(Application.Documents("microservices V2.VSS").Masters("Microservice"), 0#, 0#)

    'Update Shapes Text
    shpObject.Text = varRowData(0)

    'Get cell that i want to update
    Set vsoCell = shpObject.Cells("Prop.Object")

    'Copy data i want to apply to shape to string
    cellString = varRowData(0)

    vsoCell.Formula = cellString


    'get shape data value to print out
    dt = shpObject.Cells("Prop.Object").ResultStr("")

    MsgBox "---" & dt & ":" & vsoCell.Formula

Next lngRow

Answer 1

形状数据保存在ShapeSheet中。您可以访问ShapeSheet单元以放入信息，也可以访问ShapeSheet单元以获取信息。

Set vsoCell = shpObject.Cells("Prop.Object")-假定您在ShapeSheet中具有称为“对象”的适当属性（行）。您也有“用户”。要使用的单元格。

现在，您可以简单地使用对象vsoCell来填充信息（例如vsoCell.Formula = "Scratch.X1"）-您可能需要在双引号中放置文字字符串而不是公式。

采用通用形状，添加一些形状数据，然后打开形状表以查看其存储方式。这将为您提供一些有关要调用的名称以及如何处理此数据的想法。 ShapeSheet是Visio模型的非常强大的组成部分，一旦您学会了如何管理它，就可以做一些非常好的事情。

Answer 2

好了，确定我需要添加双引号。

  vsoCell.Formula =“”“”＆cellString＆“”“”

如何设置形状数据的值

2 个答案: