MS Access 2007 VBA - 我可以在VB格式$函数中添加字体属性

时间:2010-06-25 12:28:54

标签: ms-access vba automation ms-access-2007

所以,如果我有一个DAO记录集的returing值,并且我使用Format $,有没有办法设置只包含在Format $部分中的字体属性?

例如我有这个:

"Metric #43 = " & Format$(rs!Metric43, "Yes/No")

所以这实际上是用于ppt自动化,而不是访问表单。我希望第一个字符串是unbold,返回的值是粗体。所以我有一个用于完成此操作的ppt模板,其中包含我所指的文本框。默认情况下,文本框设置为Not-Bold,我想知道是否可以在Format $部分中设置一些字体属性以获得我想要的位置?

可能完全关闭,但只是想知道

感谢 贾斯汀

1 个答案:

答案 0 :(得分:1)

您不能使用format命令,但可以在power point中使用文本框对象并设置字体和文本以及框。

此代码来自PP内部,但只需修改它以实现自动化:

Dim strT     As String
Dim sp       As Shape

strT = "Yes/No"

Set sp = Application.ActivePresentation.Slides(1).Shapes(2)

sp.TextFrame.TextRange = strT
sp.TextFrame.TextRange.Characters(1, 3).Font.Bold = True
sp.TextFrame.TextRange.Characters(1, 3).Font.Name = "Arial"
sp.TextFrame.TextRange.Characters(1, 3).Font.Size = 18

因此,可以设置字体,字体名称和大小。