Question

在VB单击事件中怎么实现两个程序交替运行?

使用它来改变图片的打印属性。打印对象和不打印对象。
我弄错了，在excel里实现修改插入对象的打印属性，使用VB里的单击按钮，单击一次打印对象，再单击一次不打印对象

Answer 1

dim blnA as boolean
sub command1_Click()
if blnA then
ActiveSheet.Shapes(1).TextEffect.ToggleVerticalText '改变当前工作表中第一个艺术字的方向
ActiveSheet.Shapes(1).TextEffect.FontItalic = True '将当前工作表中第一个艺术字的字体设置为斜体
ActiveSheet.Shapes.AddTextEffect(msoTextEffect21, "aaa", _
"Arial Black", 22#, msoFalse, msoFalse, 66#, 80).Select '在当前工作表中创建一个名为"aaa"的艺术字并对其进行格式设置和选中
...
blnA=false
else
... '类似上面修改ActiveSheet中艺术字的设置
blnA=true
end if

Answer 2

用个全局布尔变量做标识，每按一次钮变量取反一次，不就知道该运行哪一个子程序

追问

代码怎么写啊