如何实现鼠标移过特定文字变色?

生活经验05

把各位老师的经验总结一下:1。

如何实现鼠标移过特定文字变色?,第1张

鼠标移过变色把要变色的文字放在一个文本框上,叠加到原文本框相同文字位置(可能会出现重影、加粗的情况),对叠加的这个文本框:设置动作—鼠标移过—运行宏。

宏如下:(注其中的text box 4根据自身文件内会有不同,字体颜色可以自己设置)Sub Macro5() With ActivePresentation.SlideShowWindow.View.Slide.Shapes("Text Box 4").TextFrame.TextRange.Font .Color.RGB = RGB(139, 19, 110) End WithEnd Sub这种方式缺点是:鼠标移过,页面闪动;文本框叠加,出现重影、加粗等情况。

2。

鼠标单击变色把要变色的文字放在一个文本框上,叠加到原文本框相同文字位置(可能会出现重影、加粗的情况),颜色要设置成变化后的颜色,对叠加的这个文本框:自定义动画—添加效果—进入—出现。

缺点:出现重影、字体加粗等情况。

再次感谢上面各位老师的辛勤劳动,谢谢!