江苏龙网

  1. 主页 > 生活百科 > >

巧妙解决PowerPoint放映时ActiveX控件背景透明的问题

PowerPoint

大家好，今天我准备给大家分享一个关于在PowerPoint放映时ActiveX控件背景透明的问题，也许很多朋友很说，这有何难？设置其属性不就得了 。比如可以通过下面常规的方法进行设置 。
方法一：通过属性窗口设置

巧妙解决PowerPoint放映时ActiveX控件背景透明的问题

文章插图
图1 通过属性窗口设置ActiveX控件背景透明
方法二：通过后台代码的形式
巧妙解决PowerPoint放映时ActiveX控件背景透明的问题

文章插图
图2 通过后台代码形式设置ActiveX控件背景透明
上面的操作，从道理上讲是没错的，但是我指的是谁PPT放映时，是否能够绝对保证根据ActiveX控件背景之前设置的透明属性呈现ActiveX控件背景透明效果呢？其实，不然 。根据我的尝试，虽然可以事前对ActiveX控件背景进行透明属性设置，但往往放映时，这个ActiveX控件背景依然存在 。
怎么办呢？根据我个人的探索尝试，可以借助动态获取ActiveX控件所在的幻灯片背景色，让这个背景色去填充ActiveX控件背景的形式，从“效果”上达到ActiveX控件背景透明的效果 。
下面，我们就来讲讲如何实现吧！
一、在PPT中插入几个ActiveX控件的界面布局
巧妙解决PowerPoint放映时ActiveX控件背景透明的问题

文章插图
【巧妙解决PowerPoint放映时ActiveX控件背景透明的问题】图3 PPT中插入的ActiveX控件
二、从VBA后台实现ActiveX控件背景透明的功能代码
模块1中的代码：
Public Control_Original_BackColor_Value 'Control_Original_BackColor_Value--控件的原始背景色
Public Control_Original_ForeColor_Value 'Control_Original_ForeColor_Value_Value--控件的原始前景色
Sub OnSlideShowPageChange() '演示文档放映时即刻触发的事件
'如果当前播放的演示文档的幻灯片显示窗口的预览下，当前的显示定位为第一张幻灯片时，做一次初始化试题工作(这样就避免了每张幻灯 _
片跳变都要执行无谓的浪费资源式的初始化工作)
Set_ForeColor_Value = https://www.isolves.com/it/rj/office/2019-11-22/ActivePresentation.SlideMaster.Shapes(1).Fill.ForeColor.RGB '控件文字即将被设置的颜色为母版文字颜色
If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1 Then
Dim ctr_single As Shape 'ctr_single为ActiveX控件(特别注意的是：PowerPoint幻灯片上面的控件皆作为图形的形式访问，要访问这 _
些“图形”式的ActiveX控件的属性必须采用“图形对象.OLEFormat.Object.属性”的形式进行)
Set ctr = Slide1.Shapes(1)
Control_Original_BackColor_Value = https://www.isolves.com/it/rj/office/2019-11-22/ctr.OLEFormat.Object.BackColor '存储原始背景色
Control_Original_ForeColor_Value = https://www.isolves.com/it/rj/office/2019-11-22/ctr.OLEFormat.Object.ForeColor '存储原始前景色
ControlType_Arr = Array("Label", "OptionButton", "CheckBox")
ControlName_Arr = Array("标签", "单选钮", "复选框")
c = Slide1.Background.Fill.ForeColor.RGB '提取当前幻灯片的背景色，存入临时变量c中
For i = 1 To Slide1.Shapes.Count '由Slide1.Shapes.Count统计图形的形式简洁统计出多少个控件
Set ctr = Slide1.Shapes(i)
tn = TypeName(ctr.OLEFormat.Object)
p = Pos_In_A_Array(tn, ControlType_Arr)
If p <> -1 Then
Control_Prompt_Str = "第" & i & "个ActiveX控件“" & ControlName_Arr(p) & "”，类型[" & tn & "]" & Chr(10) & "背景色将被设为与所在幻灯片颜色同色(即控件背景色形式上的“透明”效果)"
MsgBox Control_Prompt_Str, vbInformation, "设置提示"
ctr.OLEFormat.Object.BackColor = c '设置控件的背景色为当前幻灯片的背景色(即形成表面上的“背景透明”效果)
ctr.OLEFormat.Object.ForeColor = Set_ForeColor_Value '设置控件的文字颜色自适应为幻灯片母版文字颜色
End If
Next
End If
End Sub
Sub OnSlideShowTerminate() '幻灯片终止放映后触发恢复控件原有颜色的效果
Dim ctr_single As Shape 'ctr_single为ActiveX控件(特别注意的是：PowerPoint幻灯片上面的控件皆作为图形的形式访问，要访问这 _
些“图形”式的ActiveX控件的属性必须采用“图形对象.OLEFormat.Object.属性”的形式进行)
For i = 1 To Slide1.Shapes.Count
Set ctr = Slide1.Shapes(i)
ctr.OLEFormat.Object.BackColor = Control_Original_BackColor_Value
ctr.OLEFormat.Object.ForeColor = Control_Original_ForeColor_Value


推荐阅读


上一篇：功夫茶茶艺十八道程序简析

下一篇：茶叶籽油软胶囊,打造快捷养生茶品