MS Access 2007 VBA -是否可以添加VB格式的字体属性$ function

Question

因此，如果我有一个DAO记录集来返回值，并且我使用Format$，有没有办法设置只包含在Format$部分中的字体属性？

例如，我有这样的例子：

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

因此，这实际上是用于ppt自动化，而不是一个访问表单。我希望第一个字符串为非粗体，返回值为粗体。所以我有一个ppt模板，我用它来完成这个任务，它包含一个我引用的文本框。文本框默认设置为非粗体，我想知道是否可以在Format$ want中设置一些字体属性，以获得我想要的效果？？

可能完全不对劲，但我想知道

谢谢，贾斯汀

Answer 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

因此，字体、字体名称和大小的设置是可能的。