新闻
2009-09-15 20:09
自选图片做VISIO背景
在用VISIO的时候，大家也许会觉得VISIO的背景图太少了，看完这篇文章，以后就不用为此发愁了，你可以把任何想要的图片设置成VISIO背景。新建一个背景页面，插入你想要的图片，然后点击右键，选显示SHAPESHEET。在SHAPESHEET中做如下设置 Width =GUARD(ThePage!PageWidth)
Height ...
—————
2009-09-14 11:02
VBA应用之动态正弦曲线的绘制
效果如下动画所示
aa.swf (274,1 kB)
由于VBA中执行动作非常快，快的远远超过人眼的反应速度，因此要实现动态模拟第一步是实现时间延迟。在VBA中定义延迟函数，代码如下
Private Sub waitsec(ByVal dS As Double)
Dim sTimer As Date
sTimer = Timer
Do
DoEvents
...
—————
2009-09-14 09:39
shapesheet应用实例之两位开关演示制作
制一图形，如图所示
其中，SHEET.1 SHEET.2等是图形的名称。这是个两位开关的模拟程序，如果连接到SHEET1,则SHEET.3，亮，连接到2,则4亮。SHEET.12在两个位置之间每秒钟自动切换一次。
首先打开SHEET.12的sheepsheet。设置ENDX=IF(MOD(SECOND(NOW()),2)=0,SHEET.1!BEGINX,SHEET.2!BEGINX)...
—————
2009-09-12 10:20
几个VISIO的实例演示
大多数使用者只是用到VISIO的图库和自动连接功能，如果仅仅如此，根本不足以完全展示VISIO的魅力。下面几个例子是我用VBA或SHAPESHEET做出来的，让大家感受一下VISIO的魅力。
lp2.swf (748,3 kB)
lp3.swf (1 MB)