使用visio vba写一个函数:创建一个举行形状,并设置其字体样式为宋体,无线条,填充样式为蓝色
时间: 2023-03-01 20:10:04 浏览: 82
以下是一个使用 Visio VBA 创建一个举行形状并设置其字体样式为宋体、无边框、填充样式为蓝色的函数示例:
```
Sub CreateRectangleWithBlueFill()
' 创建举行形状
Dim vsoShape As Visio.Shape
Set vsoShape = ActivePage.DrawRectangle(0, 0, 2, 1)
' 设置字体样式
vsoShape.TextStyle = "宋体"
' 设置无边框
vsoShape.LineStyle = "None"
' 设置填充样式
vsoShape.FillStyle = "Blue"
End Sub
```
希望对您有所帮助!
相关问题
使用visio2010 vba写一个函数:创建一个矩形形状,并设置其字体样式为宋体,无线条,填充样式为蓝色
下面是使用 Visio 2010 VBA 创建一个矩形形状并设置其字体样式为宋体、无线条、填充样式为蓝色的代码:
```
Sub CreateRectangleWithProperties()
Dim vsoShape As Shape
Set vsoShape = ActivePage.DrawRectangle(0, 0, 2, 1)
vsoShape.Text.Font.Name = "宋体"
vsoShape.Line.Visible = False
vsoShape.Fill.Foregnd = RGB(0, 0, 255)
End Sub
```
使用此代码,将在 Visio 画布上创建一个 2 英寸宽、1 英寸高的矩形,字体样式为宋体,无线条,填充样式为蓝色。
C#如何在C:\\01\\02路径创建一个名为example的visio文件
要在C:\\01\\02路径创建一个名为example的Visio文件,只需要在保存文件时指定完整的文件路径,示例代码如下:
```csharp
using System;
using System.IO;
using Microsoft.Office.Interop.Visio;
namespace CreateVisioFileExample
{
class Program
{
static void Main(string[] args)
{
// 创建Visio应用程序对象
Application visioApp = new Application();
// 设置是否启动可见的Visio应用程序窗口
visioApp.Visible = true;
// 创建一个新的Visio文档
Document doc = visioApp.Documents.Add("");
// 将文档保存为C:\\01\\02\\example.vsd文件
string fileName = "example.vsd";
string filePath = @"C:\01\02\" + fileName;
doc.SaveAs(filePath);
// 关闭Visio文档和应用程序对象
doc.Close();
visioApp.Quit();
Console.WriteLine("Visio文件已创建:{0}", filePath);
}
}
}
```
在上面的示例代码中,我们在filePath变量中指定了完整的文件路径,即C:\\01\\02\\example.vsd。这样,就可以在指定路径下创建名为example的Visio文件了。