精华内容
下载资源
问答
  • Visio.ContainerProperties.AddMember.txt Visio.ContainerProperties.txt Visio.DropContainer.txt Visio.Page.DropCallout.txt Visio.Page.DropConnected.txt Visio.ReadAndWriteRasterExportResolution.txt Visio...
  • VisioVBA初探

    千次阅读 2019-06-26 19:37:23
    最近做的项目中需要用到Visio二次开发,安装了Visio的SDK,还有从网上找了一些这方面的博客,Visio...就是巧用Visio的宏来帮助你进行二次开发,通过Visio宏的录制功能,将你对Visio的具体操作转换成VBA代码,这样你...

    巧用Visio的宏来帮助你进行二次开发,通过Visio宏的录制功能,将你对Visio的具体操作转换成VBA代码,这样你就会知道它的一些具体是怎么实现的了,下面是具体的步骤:

    在Visio中右键,选中开发工具

    这里写图片描述

    然后再工具栏中就会加载一个新的工具栏

    这里写图片描述

    选择工具栏中的录制宏,进行录制,宏名随意填,除了数字,确定之后开始录制

    这里写图片描述

    在Visio中随意的画两个形状

    这里写图片描述

    然后运行宏,单步执行

    这里写图片描述

    这里写图片描述

    最终就会出现VBA代码的界面

    这里写图片描述

    当然,这个过程其实也可以反过来用,你可以在代码窗体中输入你想要实现的功能,然后运行就可以了!

    展开全文
  • 主要利用visio开发者模式,在没有开发帮助文档的情况下,实现对visio文件的处理 Sub Macro3() 'Enable diagram services Dim DiagramServices As Integer DiagramServices = ActiveDocument....

    主要利用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

     

     

     

     

    转载于:https://www.cnblogs.com/ddwarehouse/p/7277356.html

    展开全文
  • 项目中,我们用word撰写各类技术文件时,常常需要编辑或加载大量的Visio图,例如各类业务流程图、组织架构图、系统架构图、功能结构图等等,这些图越多,后期word排版工作就越繁琐,占用大量宝贵时间和人力。...
  • 使用Microsoft Visual Basic for Application(VBA)扩展Visio,或者将 Visio用作自己 应用程序的一个组件的信息、提示和技术。 介绍如何使用Microsoft Visual Basic和C++编程语言来开发将Visio应用程序当作组件使用...
  • VBA】--利用VBA代码导出Visio设计图

    千次阅读 2018-05-21 18:36:20
    通过Visio可以绘制各种架构图、业务流程图,但是Visio并没有直接将一个visio文件中所有绘图导出成图片的功能。通过观察宏录制,结合一些实践,小Z习得了如何使用vba代码导出图片。步骤为:1.开启“开发工具”,点击...

    通过Visio可以绘制各种架构图、业务流程图,但是Visio并没有直接将一个visio文件中所有绘图导出成图片的功能。通过观察宏录制,结合一些实践,小Z习得了如何使用vba代码导出图片。

    步骤为:

    1.开启“开发工具”,点击“宏”,创建新宏。

    2.编写代码。

    代码如下:

    Sub ExportToImage()
    
        'Enable diagram services
        Dim DiagramServices As Integer
        Dim vsoPage As Visio.Page
        Dim vsoDocuments As Visio.Documents
        Dim vsoPages As Visio.Pages
        Dim exportFileUrl As String
        Dim exportFileFormat As String
        
        DiagramServices = ActiveDocument.DiagramServicesEnabled
        ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150
        
        exportFileUrl = "C:\Users\18495\Desktop\"
        exportFileFormat = ".jpg"
        
        Set vsoDocuments = Application.Documents
        For Each vsoDocument In vsoDocuments
        
            Set vsoPages = vsoDocument.Pages
            For Each vsoPage In vsoPages
                
                Application.ActiveWindow.Page = Application.ActiveDocument.Pages.Item(vsoPage.Name)
    
                Application.Settings.SetRasterExportResolution visRasterUseScreenResolution, 144#, 144#, visRasterPixelsPerInch
                Application.Settings.SetRasterExportSize visRasterFitToSourceSize, 11#, 7.006944, visRasterInch
                Application.Settings.RasterExportColorFormat = visRasterRGB
                Application.Settings.RasterExportOperation = visRasterBaseline
                Application.Settings.RasterExportRotation = visRasterNoRotation
                Application.Settings.RasterExportFlip = visRasterNoFlip
                Application.Settings.RasterExportBackgroundColor = 16777215
                Application.Settings.RasterExportQuality = 75
                Application.ActiveWindow.Page.export exportFileUrl + vsoPage.Name + exportFileFormat
    
            Next
            
        Next
        
        'Restore diagram services
        ActiveDocument.DiagramServicesEnabled = DiagramServices
    
    End Sub


    其中小Z增加了2个变量,用于设置文件路径(exportFileUrl)和文件格式(exportFileFormat),实际使用可以进行变量修改。

    之后只要运行代码,目前就默认在桌面上生成一堆图片了,然后就可以愉快的使用这些图片,这可以节省大量时间,毕竟一份visio中包含了大量的图需要使用,一个一个导出太耗费时间了。




    展开全文
  • 其实Visio中的每个shape(包括你画的图形,线条等等),后台都有一个表来记录所有的属性,这个表我们叫做ShapeSheet.VBA编程中,你可能需要获取shape属性,其实也可以在这里参考: Open a Visio diagram containing...

    其实Visio中的每个shape(包括你画的图形,线条等等),后台都有一个表来记录所有的属性,这个表我们叫做ShapeSheet. VBA编程中,你可能需要获取shape属性,其实也可以在这里参考:

      1. Open a Visio diagram containing a shape that you want to work with in Microsoft Visio 2007.
      2. Click on the shape you want to customize to select it.
      3. From the Visio 2007 Window menu, select the ‘Show ShapeSheet’ option. 
                           The Visio 2007 Window Menu

                           The Visio 2007 ShapeSheet Property Window

     

    REF:http://msofficeuser.com/pages/visio/using-shapesheets-in-microsoft-visio-2007

    转载于:https://www.cnblogs.com/xiyoulhj/p/4248090.html

    展开全文
  • VBA Programming in Visio

    2009-08-20 09:09:06
    介绍如何在Visio中进行VBA编程,如何操作VBA对象,如何响应Visio事件。
  • visio VBA

    千次阅读 2014-05-22 19:23:51
    visio VBA  Call ThisDocument.ExportAsFixedFormat(visFixedFormatPDF, "c:\aa.pdf", visDocExIntentScreen, visPrintAll) ‘    Dim vsoPage As Visio.Page  Dim i As Integer    For i = 1 To ...
  • 1、vba遍历要添加引用,runtime 2、不能打开单独的application,因为在获取到shape的picture属性时候,新打开的application不能够获取到。提示自动化错误。 3、定位shape的话,需要shape的宽高,因为是基于中心点...
  • 导出visio2013文件中所有文本

    千次阅读 2015-12-21 13:42:49
    首先,点击“审阅-形状报表” 新建一个报告,报告中显示为列的属性选择“” 创建完成后,选中新建的报告,点击“运行”,运行报告格式选择“Excel”即可将visio文件中的文字信息导出到excel文件中
  • 最简单的方法: 打开任务管理器关闭
  • word文件里包括了上百个visio对象,一个个更改其中的文字大小过于麻烦,于是写了一个宏来批量处理字体的大小 一开始在形状里发现只有text属性,没有任何类似于font, size之类的属性,研究半天google到一段代码 ...
  • Visio.Application.Vbe.ActiveVBproject.VBComponents.Remove Visio.Application.Vbe.ActiveVBproject.VBComponents(modName) End If Exit Function ErrHandler: MsgBox Err.Description End Function ...
  • 使用Microsoft Visual Basic for Application(VBA)扩展Visio,或者将 Visio用作自己 应用程序的一个组件的信息、提示和技术。 介绍如何使用Microsoft Visual Basic和C++编程语言来开发将Visio应用程序当作组件使用...
  • 上周派到了个case, 是批量从Excel导出数据导Visio每个图形中. 花了些时间实现了这个功能. 原理如下: 打开Excel 新建/打开表单 指向所选择的表单 遍历所在列的所有数据 打开Visio 建立/打开Visio页面...
  • visioSDK开发画面设计工具,VisioSDK32bit.exe。 Visio 2013
  • Outlook 2013 Developer Documentation.chm Excel 2013 Developer Documentation.chm Word 2013 Developer Documentation.chm ...Visio 2013 Developer Documentation.chm Access 2013 Developer Documentation
  • Office VBA官方开发文档全集,VBA开发必备,包含Office2013版所有套件(Access、Excel、Word、Powerpoint、Visio、Outlook、OneNote、Publisher、Office Shared)的全部可编程对象的详细说明
  • jira-vba Atlassian Jira 的简单 VBA... 例如,下面的 Visio 图表支持一些类似 PMBOK 的过程(截图是不言自明的)。 老实说,这不是一个真正的 API,而更像是一个工作原型,可以用来创建由 Jira 驱动的 Office 文档。
  • Office VBA 2013 CHM

    2019-06-21 12:25:15
    最全的 VBA 集合,推荐下载 内容包括:Office Share,Access Excel Onenote outlok ppt publisher visio word 9 个 VBA帮助。
  • 利用VBA开发数据汇总工具通常在日常工作中总会用到Excel并且经常会遇到Excel将多个表格进行汇总。经过工作中的实践,发现用VBA开发具有一定重复性的功能,能够极大提高工作效率。最近,将本人曾开发的的Excel数据...
  • Visio二次开发(一)----巧用Visio

    万次阅读 热门讨论 2015-09-16 23:14:20
    最近做的项目中需要用到Visio二次开发,安装了Visio的SDK,还有从网上找了一些这方面的博客,Visio...就是巧用Visio的宏来帮助你进行二次开发,通过Visio宏的录制功能,将你对Visio的具体操作转换成VBA代码,这样你就会
  • 请教:如何将visiovba代码 改写为vfp代码,謝謝! 工作中常要将visio流程图作繁简中文转换,但visio没有转换键,故求助于vfp方式,请各位老師帮忙,万分感谢! 环境:win10 / vfp9.0/visio 2016 *下面是visiovba代码 **...
  • 开发Microsoft Visio解决方案

    热门讨论 2012-02-14 00:15:38
    使用Microsoft Visual Basic for Application(VBA)扩展Visio,或者将 Visio用作自己应用程序的一个组件的信息、提示和技术。 介绍如何使用Microsoft Visual Basic和C++编程语言来开发将Visio应用程序当作组件使用...
  • visio中都是shape,shape就是一个对象,要想实现对shape属性的操作,首先要定位到每个shape,同时能分辨出不同类型的shape,大概的步骤和使用的相关函数如下: ...Visio.Page page = (Visio.Page...
  • Visio开发实例

    2014-05-13 22:16:05
    提出并研究了一种以Visio图形软件为平台,利用VBA进行二次开发的图形化电力系统计算软件的新技术和新的实现方法
  • Microsoft Word中编辑Visio图形的方法

    千次阅读 2018-12-19 20:11:58
    本文主要介绍在 Microsoft Word 中编辑 Visio 图形的具体方法。 在 Word 中修改 Visio 图形时,经常遇到双击 Visio 图形后,Visio 内容太小不便于修改的情况,而此时即使通过缩放 Word 的内容也无法调整Visio 内容...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 574
精华内容 229
关键字:

vbavisio