VBA改变visio图形内控件内容和颜色

Posted 数据天空

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了VBA改变visio图形内控件内容和颜色相关的知识,希望对你有一定的参考价值。

主要利用visio开发者模式,在没有开发帮助文档的情况下,实现对visio文件的处理

 

 

Sub Macro3()

\'Enable diagram services
Dim DiagramServices As Integer
DiagramServices = ActiveDocument.DiagramServicesEnabled
ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150

Application.ActiveWindow.SelectAll

\'Restore diagram services
Dim UndoScopeID1 As Long
UndoScopeID1 = Application.BeginUndoScope("填充颜色")

For Each ItemFrom In Application.ActiveWindow.Page.Shapes
Set vsoCharacters = ItemFrom
vsoCharacters.Characters.Text = "okokokokokokokok"

vsoCharacters.CellsSRC(visSectionObject, visRowFill, visFillForegnd).FormulaU = "THEMEGUARD(RGB(255,0,0))"
vsoCharacters.CellsSRC(visSectionObject, visRowFill, visFillBkgnd).FormulaU = "THEMEGUARD(SHADE(FillForegnd,LUMDIFF(THEMEVAL(""FillColor""),THEMEVAL(""FillColor2""))))"
vsoCharacters.CellsSRC(visSectionObject, visRowGradientProperties, visFillGradientEnabled).FormulaU = "FALSE"

Next

Application.EndUndoScope UndoScopeID1, True
End Sub

 

 

 

 

以上是关于VBA改变visio图形内控件内容和颜色的主要内容,如果未能解决你的问题,请参考以下文章

WPF中如何通过C#代码改变控件Backgroung的颜色

java如何内置visio控件

VS2015C#WPF中label控件内的字体颜色怎样改变

求C#代码,控制WPF控件颜色变化

MS Access VBA从Web浏览器控件的内容中获取数据

如何根据条件改变delphi中TcxGrid控件显示框的背景颜色