【VBA】WPS/PPT设置标题字体

通过VBA,配合左上角的快速访问工具栏,实现自动化调整 选中文本框的 字体位置、大小、颜色。

配合quicker更加便捷

复制代码
Sub DisableAutoWrapAndFormat()
    Dim shp As Shape
    
    ' 检查是否选中了一个形状(文本框)
    If ActiveWindow.Selection.Type = ppSelectionShapes Then
        Set shp = ActiveWindow.Selection.ShapeRange(1)
        
        ' 取消自动换行
        shp.TextFrame.WordWrap = msoFalse
        
        ' 设置文本框的位置(左上角大标题位置)
        shp.Left = 70   ' X 坐标(可调整)
        shp.Top = 10    ' Y 坐标(可调整)
        
        ' 设置字体格式
        With shp.TextFrame.TextRange.Font
            .Size = 48                 ' 设置字体大小(可修改)
            .Color = RGB(112, 48, 160)     ' 设置字体颜色(红色,可修改)
        End With
    Else
        
    End If
End Sub
相关推荐
渣渣盟11 分钟前
JavaScript核心概念全解析
开发语言·javascript·es6
Carlos_sam1 小时前
OpenLayers:ol-wind之渲染风场图全解析
前端·javascript
拾光拾趣录1 小时前
闭包:从“变量怎么还没死”到写出真正健壮的模块
前端·javascript
拾光拾趣录1 小时前
for..in 和 Object.keys 的区别:从“遍历对象属性的坑”说起
前端·javascript
遂心_3 小时前
深入解析前后端分离中的 /api 设计:从路由到代理的完整指南
前端·javascript·api
@大迁世界3 小时前
第7章 React性能优化核心
前端·javascript·react.js·性能优化·前端框架
DownToEarth3 小时前
H5实现获取当前定位
javascript
前端Hardy3 小时前
HTML&CSS:惊艳!科技感爆棚的登录页面代码解析
前端·javascript·html
我是哈哈hh3 小时前
【AJAX项目】黑马头条——数据管理平台
前端·javascript·ajax·前端框架·axios·proxy模式
Ronin-Lotus4 小时前
上位机知识篇---AJAX
前端·javascript·ajax