Next
End Sub
Function Pos_In_A_Array(Type_Name, ControlType_Arr) As Variant '定位给定的类型名字在数组中选找到的位置，如果-1表示不存在该位置
For i = 0 To UBound(ControlType_Arr)
If Type_Name = ControlType_Arr(i) Then
Pos_In_A_Array = i
Exit For
End If
If i > UBound(ControlType_Arr) Then
Pos_In_A_Array = -1
End If
Next
End Function
三、测试实现ActiveX控件背景透明“效果”的展示
按<F5>键放映，可以看到如下效果
文章插图
图4 单选钮控件背景设置显示提示
文章插图
图5 点击<确定>后的单选钮控件背景透明展示及复选框控件背景设置显示提示
文章插图
图6 点击<确定>后的复选框控件背景透明展示及标签控件背景设置显示提示
文章插图
图7 点击<确定>后的标签控件背景透明展示
文章插图
图8 按<Esc>结束演示文档放映后，单选钮、复选框、标签控件背景恢复原色
四、技术小结
(一)我们充分运用了获取所在幻灯片的背景色的方式 。如下代码截图
文章插图
图9 获取当前控件所在幻灯片的背景色
(二)同时，立即用该背景色填充ActiveX控件背景的形式实现其背景在“效果”上透明的目的 。如下代码截图
文章插图
图10 用幻灯片背景色填充控件背景色
好了，我们的分析就到这里，谢谢大家的关注(头条号：跟我学office高级办公)、推广和点评哦，更感谢大家持续关注我后期退出的头条原创作品！
推荐阅读
- 关于彻底解决弹窗问题的一篇短文
- 4个解决肌肤问题的小技巧，你一定要知道
- |有些人上班不干活，领导也不管，怎么解决？教你三招应对
- 淘宝严重违规无法创建店铺 淘宝不能开店怎么解决
- 练瑜伽还是普拉提？纠结你很久的问题，一次解决
- 热水器不出热水怎么解决,热水器是一直有热水吗
- 黄山,商标质押贷款助中小茶企解决融资难题
- DDoS无解？网络攻击为什么花钱防不住？正确的解决方法了解一下？
- 冰箱不制冷怎么自己动手解决,冰箱不制冷维修费用大概是多少
- 睡房有臭味怎么解决,房间里老是闻到酸臭味什么原因