如何用VBA遍历Visio的GraphicItems并批量修改格式？

以下是完整的VBA代码，可直接在Visio VBA编辑器中运行，实现批量将每个数据图形的第一个项目设为加粗、最后一个项目设为斜体：

Sub FormatDataGraphicItems()
    Dim vsoDataGraphic As Visio.DataGraphic
    Dim vsoDataGraphicItem As Visio.DataGraphicItem
    Dim itemCount As Integer
    
    '遍历当前文档中所有数据图形
    For Each vsoDataGraphic In Visio.ActiveDocument.DataGraphics
        itemCount = vsoDataGraphic.DataGraphicItems.Count
        
        '跳过无项目的数据图形
        If itemCount = 0 Then GoTo NextGraphic
        
        '设置第一个项目为加粗
        Set vsoDataGraphicItem = vsoDataGraphic.DataGraphicItems(1)
        vsoDataGraphicItem.TextStyle.Bold = visBold
        
        '设置最后一个项目为斜体（项目数大于1时才处理，避免和第一个重复）
        If itemCount > 1 Then
            Set vsoDataGraphicItem = vsoDataGraphic.DataGraphicItems(itemCount)
            vsoDataGraphicItem.TextStyle.Italic = visItalic
        End If
        
NextGraphic:
    Next vsoDataGraphic
    
    MsgBox "数据图形格式修改完成！", vbInformation
End Sub

代码说明 #

• 遍历当前活动文档内的所有数据图形，逐个处理其下的项目
• 对每个数据图形，先获取项目总数，跳过空数据图形
• 第一个项目直接调用TextStyle.Bold设为加粗（visBold是Visio内置常量）
• 当项目数大于1时，对最后一个项目设置TextStyle.Italic为斜体，避免单个项目时重复设置
• 执行完成后弹出提示框确认

使用步骤 #

1. 打开Visio文档，按下Alt + F11打开VBA编辑器
2. 在左侧项目窗口中，双击当前文档的模块（或插入新模块）
3. 将上述代码粘贴到代码窗口中
4. 按下F5运行代码，等待执行完成

注意事项 #

• 确保文档已启用宏（若提示宏被禁用，需在文件选项中启用宏）
• 若数据图形的项目使用了自定义文本样式，代码会直接修改样式的加粗/斜体属性，不会覆盖其他样式设置

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