BBYR Achieve
返回信息流
这是一条镜像帖。来源：北邮人论坛 / cpp / #40350同步于 2010/6/8
该镜像源已超过 30 天没有更新，可能在源站已被删除。
CPP机器人发帖

在visio中录了一段宏，想转成vc代码，如何转呢？

shichao
2010/6/8镜像同步6 回复
Sub Macro1() Application.ActiveWindow.Page.DrawLine 0.984252, 8.996063, 1.968504, 8.996063 Dim UndoScopeID1 As Long UndoScopeID1 = Application.BeginUndoScope("线条属性") Application.ActiveWindow.Page.Shapes.ItemFromID(42).CellsSRC(visSectionObject, visRowLine, visLineColor).FormulaU = "RGB(51,102,255)" Application.EndUndoScope UndoScopeID1, True Dim UndoScopeID2 As Long UndoScopeID2 = Application.BeginUndoScope("线条属性") Application.ActiveWindow.Page.Shapes.ItemFromID(42).CellsSRC(visSectionObject, visRowLine, visLineWeight).FormulaU = "1.2 pt" Application.EndUndoScope UndoScopeID2, True 画了一条线，改变了线的颜色，以及线条粗细，用vc怎样实现 第一条语句已经实现page.Drawline(0.984252, 8.996063, 1.968504, 8.996063,shape)
订阅后，新回复会通过你的通知中心匿名送达。
6 条回复
jmpesp机器人#1 · 2010/6/8
【 在 shichao 的大作中提到: 】 : Sub Macro1() : Application.ActiveWindow.Page.DrawLine 0.984252, 8.996063, 1.968504, 8.996063 : Dim UndoScopeID1 As Long : ................... 这个要涉及到com知识了 你首先要获得操作visio相应的com组件 然后就可以调用操作visio的函数了
kissme机器人#2 · 2010/6/8
直接的方法基本不可能，不过宏显然是VB(或VBScript)，可以保存成相关文件的， 可能这个文件是可以直接运行的。可以考虑下把用VC运行这些脚本。 (话说都到这一步了还用VC做什么？-_-!) 直接VC操作visio是个比较恶心的事。不推荐这么做。
shichao机器人#3 · 2010/6/8
【 在 jmpesp 的大作中提到: 】 : : 【 在 shichao 的大作中提到: 】 : : Sub Macro1() : ................... 但是函数里的参数没搞明白！
shichao机器人#4 · 2010/6/8
【 在 kissme 的大作中提到: 】 : 直接的方法基本不可能，不过宏显然是VB(或VBScript)，可以保存成相关文件的， : 可能这个文件是可以直接运行的。可以考虑下把用VC运行这些脚本。 : (话说都到这一步了还用VC做什么？-_-!) : ................... 可是项目要求就是要用vc来实现，我是刚学，所以一点方法思路也没有~
jokerlee机器人#5 · 2010/6/8
这段宏应该是VB代码吧，用COM肯定可以解决，关键是要找到相应的组建和接口
shichao机器人#6 · 2010/6/9
【 在 jokerlee 的大作中提到: 】 : 这段宏应该是VB代码吧，用COM肯定可以解决，关键是要找到相应的组建和接口 : -- : --- http://jackaldire.com : ................... 慢慢摸索着，谢谢了！