我正在尝试使用OrgChart向导通过VBA从Visual Studio导出Visio绘图。
首先,我们使用以下方式设置页面配置参数:
'/PAGES=<top employee> <num levels> PAGENAME=<pagename>,<top employee> <num levels> PAGENAME=<pagename>...
strPageConfig = " /PAGES=" & ListBox1.SelectedItem & " " & lvlNum & " PAGENAME=cleanedData"
然后,我们将excel文件存储在一个名为visExcelFile的valiable中。 接下来,我们创建了OrgChart向导:
visApp = CreateObject("Visio.Application")
visApp.visible = False
objAddOn = visApp.Addons.ItemU("OrgCWiz")
objAddOn.Run("/S-INIT")
添加组织结构图参数并运行向导:
orgWizArgs = " /FILENAME=" & visExcelFile & " /NAME-FIELD=Name" &
" /MANAGER-FIELD=Reports_To" & strPageConfig &
"/DISPLAY-FIELDS=Name, Title /SYNC-ACROSS-PAGES /HYPERLINK-ACROSS-PAGES"
objAddOn.Run("/S-ARGSTR " + orgWizArgs)
objAddOn.Run("/S-RUN")
visApp.visible = True
错误来自我们设置strPageConfig的行,特别是从ListBox1读取名称时。当值中有任何空格时,我会弹出每个单词(2或3,因为它们是名字),说明:
Employee name "Smith" is not in your organization data.
Employee name "John" is not in your organization data.
我遗漏或遗忘的是导致此错误的空格?
解决这个问题的另一个问题是,当我们将员工姓名加载到ListBox1中时,我们用_替换空格,但这些下划线显示在图形中,这是我们不想要的。
所以我的问题是: 如何使用包含空格的数据从VBA运行OrgChart向导? 要么: 如何通过VBA进入这些对象并编辑ShapeData文本字段?
我在其他网站上看过类似的问题,但没有回答。 我也在使用Visio 2013
答案 0 :(得分:2)
你需要引用你的字符串,所以:
Public Function QuoteString(str as String) as String
Dim quotechar as String
quotechar = Chr(34)
QuoteString = quotechar & str & quotechar
End Function
strPageConfig = " /PAGES=" & QuoteString(ListBox1.SelectedItem) & " " & lvlNum & " PAGENAME=cleanedData"