Excel 到 Ms Project VBA - 插入任务，设置字体、下划线和斜体

Question

我在 VBA (Excel) 中有以下代码行，在 MS Project 中成功生成任务，并建立了正确的大纲级别。但是，我想将特定任务的 'Name field' 的格式设置为带有下划线 AND OR 为斜体：

示例代码：

ActiveProject.Tasks.Add ("Enter Task Name #1")
ActiveProject.Tasks ("Enter Task Name #1").OutlineLevel = 1
ActiveProject.Tasks.Add ("Enter Task Name #2")
ActiveProject.Tasks ("Enter Task Name #2").OutlineLevel = 2
ActiveProject.Tasks.Add ("Enter Task Name #3")
ActiveProject.Tasks ("Enter Task Name #3").OutlineLevel = 3

如何为正在导入的任务设置格式选项或选择导入的任务并设置所需的格式？

Answer 1

输入任务后，使用Find method to select the task and the apply formatting such as FontBold。例如：

Application.Find "Name", "equals", "Enter Task Name #2"
Application.FontBold
Application.FontItalic

或者，使用 FontEx 可以一次应用多种格式。