[求助]设置自选图形的默认效果及画布增删

守柔

快捷键的截图：

r5CJxPTD.rar (24.99 KB, 下载次数: 23)

2006-8-10 04:49 上传

点击文件名下载附件
[求助]设置自选图形的默认效果及画布增删

雨雪霏霏

　　老大4:45:46就已经发帖了，帖子文字内容1400字，另外还有极明白的附图、呵护至细的屏幕录像，已经让人难以想象老大的辛苦！而小弟拉拉杂杂写完“OK版测试报告”最后发帖是在1:10:58，老大要看明白小弟没有条理的文字已经十分费力，还要再进行各种调试、编码，做出“OK二版”成品，大概老大是彻夜未眠呢！之后，又再看到老大的一系列回帖，直到七点多还有一帖——小弟感激的话已经元法再用词语表达，只能在心里深深铭记了，而骤起的担忧是——老大的“金体”可吃得消？真怕老大“人比黄花廋”了呢！小弟的大量重复劳动已经进行了一段时间，并不差这几天的，老大尽可以慢慢着手帮助解决小弟的问题——呵呵，就是“生死至交”，怕也难以如此去照顾人的吧，何况到现在小弟还未曾见过老大一面，未曾给老大送去一瓶家酿老酒，只是远远景仰着老大，老大就已经如此舍身奉献了，叫小弟心头负疚该有几万斤呢！一夜未睡，影响了第二天工作，老大所受“无形损失”，小弟又如何担当得起？总之，还是一句话——老大以后莫再如此关爱小弟了，小弟的问题，全都不“急”，老大能够挤出时间回复已经不易，莫要再牺牲极为重要的休息时间。——如果往远了说，小弟还希望老大长寿两百岁，把Word拆成一个一个零件，重新铸化为老大自己的“柔版Word”，功能比微软的Word要强几百倍，到时老大也可成为软件巨头，周游列国逍遥去了，这“革命本钱”是万请老大要注意保护的！

　　

　　以下是“OK二版”测试报告：

　　1、感谢老大非常全面详细的说明，小弟明白了许多东西，包括总体设计构思、模板加载项、一键通功能等等。加之老大精彩的附图与屏幕录像，让小弟除了看不懂编码之外，其他的几乎都明白了。——感谢老大的无微不至，在极详尽的屏幕录像中小弟深味！——感谢老大的教诲，把一些背后的设计构思清楚写出，让小弟得到了“一流编程”的熏陶，并且教给了小弟许多实用的Word技巧，有了新的积累！

　　2、“一键通”功能使用非常流畅，这个功能的设置见出了老大的“神通”之大与火烫爱心。

　　新体验到的妙处：画出一个图形，小弟可以使用快捷键使它变成固定高度，同时，也可以不对它使用快捷键。也就是说老大设置的这个功能使小弟的作图更为自由灵活。而不是一画出来就是固定死的高度，要变更高度还得鼠标第二次去拖动这个图形。自然，肯定还会有其他的许多妙处，小弟再慢慢享受体验！深谢老大！

雨雪霏霏

　　局限：如同“OK一版”里小弟所说，在画布里无法使用这个功能，请看小弟附图。查看老大的《myShape.doc》，“工具→选项→常规”里，未勾选“插入‘自选图形’时自动创建绘图画布”一项。实测中，确实，如果小弟在未“自动创建绘图画布”状态下作图，“一键通”功能使用十分方便，但一旦勾选“插入‘自选图形’时自动创建绘图画布”一项，可以在画布上自由作图，但对于已经做出来的图形无法使用“一键通”功能，即在画布之中，按快捷键，会产生画布与图形一起缩小15倍左右的效果，不管画布里有一个图形还是已经画了好几个图形，都一起缩小15倍。——回过头去测试“OK一版”，也是未有画布时可以使用“一键通”，在画布里作图则无法使用“一键通”。

　　猜测：估计是老大在进行“OK一版”与“OK二版”的编码时都处于不自动创建画布状态下，没有注意到小弟实际操作的情况。

　　小弟的平时完整的操作流程是：在画布里不断添加图形，在画布里为每个图形设置好特定格式，再于画布里通过“对齐或分布”功能进行图形位置调整，最后把同一个画布里的所有图形“组合”成一个“大图形”。之后，便是“画布增删”的问题，即在“组合”成一个“大图形”之后，剪切这个“大图形”，把绘图画布删除，再于Word文档里粘贴“大图形”，最后设置“大图形”的版式为“嵌入型”。如果过两三天后发现这个大图形哪里需要再改动一下，便又只好重新点击绘图工具栏上随便一个图形按钮，以让Word自动生成一个新的画布，再把“大图形”粘贴到新画布里“取消组合”，进行各种调整。接着仍然是把新画布里的所有图形“组合”成“大图形”，剪切之，Delete画布，粘贴“大图形”到文档。——小弟在此前未把这一点说透，对老大的编码有较大影响吧！真对不起老大！

　　事实上，小弟在前次上传的“说明表”之后有两个“综合应用效果草图”，它们是一定得在画布里才能做得出的。

[此贴子已经被作者于2006-8-10 11:32:55编辑过]

雨雪霏霏

　　3、工具栏、快捷键的自定义，看了老大附图，小弟方才明白的。因为Ctrl+0键不属于Normal.dot，所以用“快捷键的快捷键”无法反查出来。但这一点可以看出小弟的“变通能力”“严谨态度”还不够——在看不懂老大的代码的时候，小弟其实也应该想到通过查看老大“OK版”所有宏的快捷键自定义情况以找出Ctrl+0键属于哪个宏的。

　　4、关于双击效果。

　　“OK二版”之中，仍然无法实现小弟说的“双击效果”。大概老大理解中的“双击效果”与小弟的理解不一样吧。

　　老大是这样说的：“至于双击效果，完全支持。说白了，程序最主要的目的是设置默认效果，明白了这一点，就通了。也就是在想进行某个指定的效果时，单击相应命令，拖动鼠标即可绘制出指定格式的图形，至于限定的非默认效果命令支持的格式时，则需要使用快捷键。”老大在这里说的是“鼠标单击事件”吧，大概不是“鼠标双击事件”的意思。——或许是小弟的“术语”使用根本辞不达意。

　　小弟的对此的详细说明是：我们平常用绘图工具栏来作图，先把常用的图形在自定义状态下拖放到绘图工具栏上，比如说小弟把“过程”“可选过程”两个常用的图形安放到了绘图工具栏上，现在我需要在画布里一个“可选过程”，于是我就单击绘图工具栏上的“可选过程”按钮，在画布里拖动鼠标就画出了一个“可选过程”图形。而假若我需要在画布里画好五个“可选过程”图形，那么我就不是重复五次“点一次工具栏上的按钮再到画布里画一个图形”的操作了，而是双击工具栏上的“可选过程”按钮，使鼠标指针在画完一个“可选过程”图形之后仍然处于十字形状态，要画第二、三、四、五个“可选过程”图形，我只要在画布里连续四次拖动鼠标即可，而不用回头第二、三、四、五次点绘图工具栏上的“可选过程”按钮。——呵呵，其实老大对小弟如此罗嗦的解释是不用看也明白的，但小弟还是说一说吧。小弟的目的是想着双击“新栏”上的“可选过程”按钮，也可以像绘图工具栏上的“可选过程”按钮一样反复使用，直至按Esc键退出连续作图状态。——这要在VBA代码中实现，应该有些难度。

雨雪霏霏

　　5、小弟还无法对“OK二版”进行删减或扩充。

　　小弟尝试了一下，在ShapesTemplate.doc的表格最后新添一行，于第一个单元格里放入一个绿色填充颜色的椭圆，设置其版式为“四周型”，保存、关闭ShapesTemplate.doc。再到myShape.doc（打开时选择“禁用宏”）里的两处新加进“17”的代码，如下：

　　Sub S15()

　　    F = 15

　　    Call FormatSetUp(15)

　　End Sub

　　Sub S16()

　　    F = 16

　　    Call FormatSetUp(16)

　　End Sub

　　Sub S17()

　　    F = 17

　　    Call FormatSetUp(17)

　　End Sub

　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

　　  Case 11 To 17

　　            Select Case W

　　            Case 11

　　            Case 12, 14, 15

　　                .Line.BeginArrowheadLength = msoArrowheadLengthMedium

　　                .Line.BeginArrowheadWidth = msoArrowheadWidthMedium

　　                .Line.BeginArrowheadStyle = msoArrowheadOval

　　            Case 16

　　                .Line.BeginArrowheadLength = msoArrowheadShort

　　                .Line.BeginArrowheadWidth = msoArrowheadNarrow

　　                .Line.BeginArrowheadStyle = msoArrowheadDiamond

　　                .Line.EndArrowheadLength = msoArrowheadShort

　　                .Line.EndArrowheadWidth = msoArrowheadNarrow

　　                .Line.EndArrowheadStyle = msoArrowheadDiamond

　　            Case 17

　　            End Select

　　        End Select

　　    End With

　　End Sub

　　之后，在“工具→自定义”状态下将宏“S17”拖放到“新栏”上，点击这个新按钮，没有反应。估计是小弟还差一处没有去修改所以无法“扩充‘OK二版’”。

　　请老大再说一说如何加后续的图形好吗？谢谢老大！

雨雪霏霏

　　6、“井水不犯河水”仍是难题。

　　因为涉及编程的复杂，所以，请老大在替小弟解说如何“扩充‘OK二版’”的同时，也请老大能够兼顾“新栏”与“绘图工具栏”两不相犯的问题——当然，小弟的意想中，这个问题大概属于“无理取闹”的范围：Word根本就不可能完成这个要求。

　　小弟的要求，可以这样表述：①我点“新栏”上的按钮作出图形之后，Word自带的右键“设置自选图形的默认效果”无效，即Word并不理会这个命令。②我点“绘图工具栏”上的按钮作出图形，并且把这个图形的边线设为6磅宽、填充颜色设为红色，再点右键“设置自选图形的默认效果”，则真的就以此图形的格式为默认效果。以后我再点“绘图工具栏”上的按钮，作出的必定都是6磅线宽、红色填充的图形，不会出现以下情况——我点击了“新栏”的“微”按钮，再回头点“绘图工具栏”上的任意按钮，作出的都是“微”格式的图形；我点“新栏”上的“双行巨”按钮，再回头点“绘图工具栏”上的任意按钮，作出的都是“双行巨”格式的图形。

　　还是简单的一句话——我可以使用“新栏”一步到位画出特定图形，同时，我也还像往常一样自由使用绘图工具栏，可以随时定制自己的“默认效果”。

　　小弟是明白老大在编码中同样运用了“默认效果”在里头的，所以说“井水不犯河水”功能的实现太为苛刻。事实上，一使用“新栏”这河水，必然马上就犯到了“绘图工具栏”这井水了。只是因为“河水”自然是十分迫切的，而“井水”作为极为灵活便利的补充也十分让小弟割舍不了。

　　7、打开“myShape.doc”时一起出现“ShapesTemplate.doc”的问题。

　　小弟只是点击“myShape.doc”文档，会一起出现“ShapesTemplate.doc”文档，但不见“ShapesTemplate.doc”文档的内容，就像是关闭了所有Word文档而不关闭Word程序时的界面一样（呵呵，比那还干净得多，只有窗口最上边的一栏显示着文件名，其他菜单栏、格式工具栏等等则根本看不到）。

　　这应该可以由老大的说明“改进后的代码中，已作为公共变量，出现在内存中，除非主文档（MYSHAPE）退出时，才关闭ShapesTemplate文档，这样当然流畅了”来解释。

　　自然，小弟觉得有些不足的是，这个文档出现在Windows任务栏上，颇挤占了有限的任务栏空间。能否让它处于“打开”状态，却又不在任务栏上出现呢？当然，小弟这要求同样是“苛刻”的，老大不作考虑也好。

　　

　　一个上午过去了，小弟又再一次体验了老大的编程的苦累——老大不是亲人，却又是最亲的人！想当年，毛泽东没有这样去舍命帮助一个“陌生人”吧！看来，小弟是得请“小才旦卓玛”给老大唱一支歌了——《唱支山歌给“家”听》！请老大一定收下！

守柔

谢谢雪兄的详尽测试。我把我能想到的，我能回答的，先予回答，暂时未实践成功的，留待下一步继续努力。

“至于双击效果，完全支持。说白了，程序最主要的目的是设置默认效果，明白了这一点，就通了。也就是在想进行某个指定的效果时，单击相应命令，拖动鼠标即可绘制出指定格式的图形，至于限定的非默认效果命令支持的格式时，则需要使用快捷键。”

这句话的意思是，如果在文档中需要绘制N个“微”，先单击“新栏--图形格式设置工具栏”中的微命令，向文档添加一个“微”格式的自选图形，再双击原有Word绘图工具栏中的对应按钮，则可以连续作出该格式的自选图形（我在录像中有），在新作出的自选图形后按下一键通快捷键，则可以设置自定义的格式，包括光标定位，当然，此时不能进入编辑状态，继续绘制指定图形。

关于“井水不犯河水”，其实实现起来不难，但需要规避一些地方，简单地讲，就是当需要使用原绘图工具栏中并且绘制出非“自定义”的格式图形前，“恢复”初始默认格式设置，就象我先前第一次的代码中的一样，但需要有一个命令，以执行该操作。

关于绘图画布的问题，目前尚有一个技术难关，需要一些时间，也需要一点灵感。

关于自定义图形格式的添加问题，你观察得很认真，是四周型，确保不是嵌入型的。你的代码中，漏掉关键部分了：

在SUB FORMATSETUP（F AS BYTE）中加入以下代码（示例）

 Case 17
                Set myShape = Me.Shapes.AddConnector(msoConnectorElbow, 0, 0, 0, 0)'新增一个指定的对应自选图形(但看不见,都是0)
                myShape.Apply'应用格式
                myShape.SetShapesDefaultProperties'设置为默认格式
                myShape.Delete'删除该新增图形
                Word.CommandBars("Drawing").Controls(3).Controls(2).Controls(4).Execute'执行指定的命令(鼠标呈绘图状态)

关于隐藏文档的窗口事宜,我目前在WINXP+OFFICE2003中尚未发现,能否发个图片给我.

我想你先适应一下操作,再提一些有价值的意见和建议,我再综合考虑.

雨雪霏霏

　　对不起，老大！我这里10日夜里遭台风“桑美”袭击之后，一直停电，上不了网，今天傍晚才恢复，“OK二版”的测试直至此时才得以匆促告一段落。让您久等了！

　　小弟的前两天的“详尽”测试是应该的，老大道以“谢谢”二字，小弟则不知该对老大“反说”些什么了。相对于老大的劳动而言，小弟无论怎么测试其实都难以说到点子上，“详尽”一词实无从说起！

　　小弟今天的测试没有更大的进展，简报如下，请老大恕罪：

　　1、同时出现“ShapesTemplate.doc”文档问题。

　　小弟在笔记本电脑上反复测试，甚至重新下载解压老大的文件来测试，都会在打开“myShape.doc”文档的同时出现“ShapesTemplate.doc”文档，而且是“ShapesTemplate.doc”文档窗口在屏幕的最前，要看到“myShape.doc”文档内容，还得再点Windows任务栏上来切换，如附图。

　　但小弟在台式电脑上反复测试，不存在此问题。亦即点击“OK”文件夹里的“myShape.doc”文档，会在Windows任务栏上出现此文档，但发现不了“ShapesTemplate.doc”文档也同时被打开的任何信息。——简单地说，在台式电脑上，“myShape.doc”文档跟“ShapesTemplate.doc”文档像平常独立的两个Word文档，点击前者，便只打开前者，而不会连带着对后者进行任何操作。

　　小弟暂时不知是什么原因，只能猜测为小弟的笔记本电脑有点莫名其妙的问题。请老大对这个问题不必再考虑。

　　2、绘图画布的问题。

　　小弟的观察与猜度：到目前为止，Word的VBA都只是作用于无画布状态下的作图，对于在画布之中如何作图、编辑（如使用老大的“一键通”功能），还没有专门的论述。老大碰到的“技术难关”，大概是Word2003有待于老大去开拓的一个全新领域。

　　因此，小弟完全理解老大“需要一些时间，也需要一点灵感”的发语。小弟会静静等待的，老大不必急于一时。

　　与画布相关的问题小弟不妨再重述一遍：①“OK二版”还无法在画布之中使用“一键通”功能。如果在画布之中画好一个图形之后，再按下快捷键，时常会有两种情形，一种是Word没有任何反应，另一种是画布和图形会一起缩小近15倍；②小弟在一楼所说的“画布自由增删”的问题，老大已说过留待后头解决，小弟这里不再赘述。

雨雪霏霏

　　3、双击效果问题。

　　老大楼上又向小弟解释了一回，小弟应该是完全明白了。

　　在详述之前，小弟需要再说清一个概念——“新栏”：小弟把老大的“myShape.doc”文档自动生成的“图形格式设置”浮动工具栏称为“原栏”；在小弟实际操作中，把“原栏”拖放固定在水平滚动条之下、状态栏之上，并且在自定义状态下把“原栏”中三个菜单之下的16个图形按钮全部拖放出来陈列成一排，那么，这个已经被小弟改动过的的“原栏”便称为“新栏”，亦即这个“新栏”相像于Word自带的绘图工具栏，“新栏”上有16个图形按钮，我点“微”按钮便画出“微”格式的图形，点“双行巨”按钮，便画出“双行巨”格式的图形，而不必再像“原栏”一样需要从第一个菜单底下找出“微”按钮，再到第二个菜单底下找出“双行巨”按钮。——呵呵，极简单的问题，小弟说得太罗嗦了！

　　请老大看看小弟如下说法确否？——老大所说，要实现双击效果，方法如下：单击“新栏”上的“微”按钮之后，再到Word自带的绘图工具栏上双击任意图形按钮，便可以连续不断在画布里画出“微”格式的图形。

　　小弟的设想则是：小弟直接双击“新栏”上的“微”按钮，便可以在画布上连续不断画出“微”格式的图形，双击“新栏”上的“双行巨”按钮，便可以在画布上连续不断画出“双行巨”格式的图形。简单地说，“新栏”要像“绘图工具栏”一样，只要双击某个图形按钮，便可以连续画出这类图形。

　　这两天对这个问题有如下观点：

　　①这个问题其实可以不必要求过于苛刻。照老大提供的方法，小弟要连续画五个“微”格式的图形，方法是——先单击“新栏”上按钮，再双击“绘图工具栏”上按钮，便可以在画布上连续不断画出“微”格式的图形。这个过程，鼠标总共进行了三下点击。小弟的要求是想减少鼠标的点击量——只要在“新栏”上双击，便可以连续画“微”格式的图形，而不必再到“绘图工具栏”上进行什么操作。如果要老大费了很大力气做到小弟的要求，那么，倒不如小弟多点击一次“绘图工具栏”，感觉上虽然“麻烦”一些，但并无大碍。

　　②要实现“新栏”按钮的“双击效果”，大概没有办法。“双击效果”其实是Word自带的“绘图工具栏”具备的一个特殊功能：对Word中其它任何工具栏上的按钮，你“双击”也好，“单击”也好，都不会有什么区别，但唯独你“单击”绘图工具栏按钮，比如说是“直线”按钮，只能画出一条“直线”，但你双击“直线”按钮，则可以随心所欲地在画布上连续画出许多条“直线”。而由老大“原栏”衍化出来的“新栏”，等于普通的“自定义工具栏”，其上的按钮要像“绘图工具栏”上的按钮一样响应“鼠标双击事件”，几乎是不可能之事。——当然，小弟井底之蛙，不识VBA，只会乱猜。大概老大早已洞晓了绘图工具栏“单击”“双击”之所以不同的VBA编码了。

雨雪霏霏

　　4、“井水不犯河水”问题。

　　老大已经解说得分明了——这个功能完全可以实现，只是需要再编写一个命令。小弟欣喜！谢谢老大！

　　再说明如下：

　　①“新栏”不影响“绘图工具栏”的问题。

　　假如我1999年就对着一个图形点击右键来“设置自选图形的默认效果”（线宽6磅，填充颜色为蓝色，以下简称为“6蓝”效果），我此后没有再第二次“设置自选图形的默认效果”的话，那么，我点“绘图工具栏”上的任意按钮，画出的图形必定都是“6蓝”格式。而不会因为2006年新增了一个“新栏”，我点了“新栏”上的什么按钮，而致使1999年的“6蓝”再也找不回。

　　还可以这样表述：2006年8月12日，我先点击“新栏”的“微”按钮，再去点击“绘图工具栏”上的任意按钮，都不会画出“微”格式的图形；点击“新栏”上的“双行巨”按钮后，再去点击“绘图工具栏”上的任意按钮，都不会画出“双行巨”格式的按钮。——只要我点击了“绘图工具栏”上的任意按钮，画出的图形全是1999年的设置的“6蓝”格式。

　　如果我在2006年8月13日觉得“6蓝”格式不合适了，则通过右键“设置自选图形的默认效果”来重新设置了一个“7红”格式，那么，我此后点击了“绘图工具栏”上的任意按钮，画出的必定全是“7红”格式的图形，而不会理会我在点击“绘图工具栏”之前是否有点过“新栏”。

　　②右键的“设置自选图形的默认效果”功能问题。

　　小弟在“OK二版测试报告（5）”里所说的“我点‘新栏’上的按钮作出图形之后，Word自带的右键‘设置自选图形的默认效果’无效，即Word并不理会这个命令”，其实是不成立的。应该改成——小弟可以随时将某个已经画出并设置好格式的图形，设置为“默认效果”，即和往常一样自由运用这个“右键→设置自选图形的默认效果”功能。我一旦设置了“新默认效果”，那么，只要是“绘图工具栏”上的按钮画出的图形，必定要是“新默认效果”格式。

　　5、到此，可以对“新栏”与“绘图工具栏”作如下小结：

　　①“新栏”上的十六个图形按钮，分别对应一种特殊格式。单击“微”按钮，则在画布里拖动鼠标画出一个“微”格式图形；双击“微”按钮，则可以在画布里连续几次拖动鼠标画出好几个“微”格式的图形。

　　②我点过了“新栏”上的“微”按钮后，并不影响到用“绘图工具栏”作出的图形的格式——假如“绘图工具栏”本身已经将“6蓝”设置为“默认效果”，则不管是否已经单击或双击“新栏”上的按钮，只要我最后点击的是“绘图工具栏”上的按钮，那么画出的必定是“6蓝”格式的图形。

　　6、“OK二版”的“删减扩充”问题。

　　小弟按老大的指示多番修改VBA编码，总无法实现“OK二版”的“扩充”。现将“OK二版扩充试验”文件上传，请老大指教！

oK80Zijw.rar (21.78 KB, 下载次数: 15)

2006-8-13 00:49 上传

点击文件名下载附件
[求助]设置自选图形的默认效果及画布增删

 

　　一些简单的问题，小弟反复陈述，实是小弟笔头功夫太浅，劳老大再三阅览，愧怍难禁！

　　谢谢老大巨力帮助小弟解决难题！

　　“门外汉”的小弟提出种种无理要求，可以作这样蹩脚的比方——小弟是一个飙车爱好者，但对机动车的构造原理等等根本不懂，只是对一个“好老大”不断唠叨着种种幻想。有一次，小弟不知从哪儿找出了一辆简易电动自行车，于是喜滋滋跑到了“好老大”面前说：“请您把我的电动自行车改造成比别人三百万元的小车还要快的摩托车，我信得过您的技术，您究竟是天下第一‘车王’！”