PPT VBA怎么给文本框中的文字加上黄底

shenjianrong163

如下图，PPT VBA怎么给文本框中的文字加上黄底？

安装有Office 2003版本的老师请帮忙录制宏来看看，谢谢！

dongdonggege

1. Sub test()
   
2.     Set shp = ActiveWindow.Selection.ShapeRange
   
3.     shp.TextFrame.TextRange.Font.Color.RGB = RGB(Red:=250, Green:=250, Blue:=0)
   
4. End Sub

复制代码

选中图形，你试试

dongdonggege

这个论坛，版主没有管理好，风气坏了，好的帖子不表扬，大量的人才流失，比VBA开发那边差的太远了。不然找一帮朋友，志同道合的，一起组一个QQ群，探讨多好啊。

shenjianrong163

dongdonggege 发表于 2023-12-16 09:54
选中图形，你试试

谢谢！但是这代码这是设置文字颜色的，不是设置底色的。帮助文件没有提到这种设置底色的操作，2003版的录宏中也没有。

lss001

shenjianrong163 发表于 2023-12-16 19:25
谢谢！但是这代码这是设置文字颜色的，不是设置底色的。帮助文件没有提到这种设置底色的操作，2003版的录 ...

可以参考一下附件代码！
001.rar (33.03 KB, 下载次数: 11)

2023-12-17 17:03 上传

点击文件名下载附件

lss001

lss001 发表于 2023-12-17 17:03
可以参考一下附件代码！

选中指定文本后也可以执行以下菜单项命令Application.CommandBars.ExecuteMso ("TextHighlightColorPickerLicensed")

shenjianrong163

lss001 发表于 2023-12-17 17:56
选中指定文本后也可以执行以下菜单项命令Application.CommandBars.ExecuteMso ("TextHighlightColorPicke ...

谢谢老师，这句代码要Office 2013以上的版本才能执行，Office2010会出错。

lss001

shenjianrong163 发表于 2023-12-17 23:12
谢谢老师，这句代码要Office 2013以上的版本才能执行，Office2010会出错。

不支持可以参考一下附件

shenjianrong163

lss001 发表于 2023-12-19 12:39
不支持可以参考一下附件

谢谢，附件是可以的！Office2010也能用，就是WPS用不了！

shenjianrong163

lss001 发表于 2023-12-17 17:03
可以参考一下附件代码！

老师，测试了下，在WPS中作以下修改，可以设置高亮显示：
  j = InStr(txtRng.Text, "指定文字")
  shp.TextFrame2.TextRange.Characters(j, 4).Font.Highlight.RGB = RGB(255, 255, 0)

另外，再请教一下：怎样取消文字的高亮显示？谢谢！