衡水哪里做网站,池州网站建设哪家好,网站建设做到哪些内容,导购网站怎么做的通过VBA#xff0c;配合左上角的快速访问工具栏#xff0c;实现自动化调整 选中文本框的 字体位置、大小、颜色。 配合quicker更加便捷 Sub DisableAutoWrapAndFormat()Dim shp As Shape 检查是否选中了一个形状#xff08;文本框#xff09;If ActiveWindow.Selection.Typ… 通过VBA配合左上角的快速访问工具栏实现自动化调整 选中文本框的 字体位置、大小、颜色。 配合quicker更加便捷 Sub DisableAutoWrapAndFormat()Dim shp As Shape 检查是否选中了一个形状文本框If ActiveWindow.Selection.Type ppSelectionShapes ThenSet 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 WithElseEnd If
End Sub
