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

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

方法一：通过属性窗口设置

图1 通过属性窗口设置ActiveX控件背景透明

方法二：通过后台代码的形式

图2 通过后台代码形式设置ActiveX控件背景透明

上面的操作，从道理上讲是没错的，但是我指的是谁PPT放映时，是否能够绝对保证根据ActiveX控件背景之前设置的透明属性呈现ActiveX控件背景透明效果呢？其实，不然。根据我的尝试，虽然可以事前对ActiveX控件背景进行透明属性设置，但往往放映时，这个ActiveX控件背景依然存在。

怎么办呢？根据我个人的探索尝试，可以借助动态获取ActiveX控件所在的幻灯片背景色，让这个背景色去填充ActiveX控件背景的形式，从“效果”上达到ActiveX控件背景透明的效果。

下面，我们就来讲讲如何实现吧！

一、在PPT中插入几个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 = 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 = ctr.OLEFormat.Object.BackColor '存储原始背景色

Control_Original_ForeColor_Value = 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

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高级办公)、推广和点评哦，更感谢大家持续关注我后期退出的头条原创作品！