在形状ppt中更改字体
用户名
我通过VBA，用户窗体和Excel自动生成一张PowerPoint幻灯片。您在excel中运行VBA脚本，填写数据，数据进入excel中的单元格，然后VBA脚本提取数据并将其放入幻灯片中的文本框形状。
我的问题是我想在不同的时间使用不同的字体大小，例如，一部分使用28 pt字体，其余部分使用14 pt。问题是我对文本框所做的任何属性更改都适用于形状内的所有文本。
我当前的解决方法是草率的，只是在原始文本上生成另一个文本框，并在原始文本中插入间距，因此看起来较大的文本“位于”文本框中，而实际上只是位于预留的几行空行上。
戴维·泽门斯
您可以在字符串中设置特定子字符串的格式，但这非常麻烦，例如，假设shp有一个代表您的文本框的对象变量：
Sub foo()
Dim shp As Shape
Set shp = ActivePresentation.Slides(1).Shapes("TextBox 3")
shp.TextFrame.TextRange.Text = "Hello, world!"
shp.TextFrame.TextRange.Characters.Font.Size = 14 'applies uniform font to entire shape
shp.TextFrame.TextRange.Characters(1, 5).Characters.Font.Size = 28
End Sub
输出示例：
当然，困难在于使用混合格式，我认为没有任何简单的解决方案。由您决定要“捕获”哪些格式，以及随后执行哪种条件逻辑将这些格式转换为PowerPoint形状。
一种可能的替代方法-这就是我成为您时要走的路线-是从Excel复制单元格，然后使用此方法粘贴到PowerPoint中。我相信这将在PowerPoint幻灯片中创建一个包含单个单元格的表格。您将不得不调整大小/位置，但这应该比试图捕获字体格式的每种可能的变化都容易一个数量级：
Sub foo2()
Dim shp As Shape
Dim xl As Object
'Get Excel and copy a specific cell
Set xl = GetObject(, "Excel.Application")
xl.Workbooks("Book35").Sheets("Sheet2").Range("B4").Copy
'Paste that cell in to PowerPoint as a table, preserving formats:
ActivePresentation.Slides(1).Select
Application.CommandBars.ExecuteMso "PasteSourceFormatting"
End Sub
从Excel单元格复制的示例输出：
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
ppt中的字体跟踪
- 2
在PowerPoint中更改粘贴形状内的字体大小
- 3
无法与官员更改PPT标题字体
- 4
使用CSS更改字体图标的形状
- 5
在Word中更改字体
- 6
更改 ggplot 中的字体
- 7
在形状中设置字体大小
- 8
形状名称PPT VBA
- 9
通过输入框选择形状以更改字体
- 10
在颤抖中更改TabBar形状
- 11
更改knitr中的注释字体
- 12
在CSS中更改表格字体
- 13
在Swift中更改UINavigationBar字体
- 14
在Swift中更改按钮的字体
- 15
如何更改phpmailer中的字体？
- 16
更改Livewires消息中的字体
- 17
在xmonad中更改dmenu的字体
- 18
在GUI程序中更改字体
- 19
更改我的listView中的字体
- 20
在CSS中更改表格字体
- 21
在cmd或powershell中更改字体
- 22
在echo命令中更改字体
- 23
无法更改iTextsharp中的字体？
- 24
更改intellij中的javadoc字体
- 25
在Swift中更改导航栏中的字体
- 26
如何在PPT VBA中更改表格边框颜色
- 27
在iOS中更改字体，toast的字体大小
- 28
如何将图例中的字体更改为 Windows 字体
- 29
在Android中以编程方式更改形状颜色
我来说两句