精华内容
下载资源
问答
  • 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 ...

    visio VBA

     Call ThisDocument.ExportAsFixedFormat(visFixedFormatPDF, "c:\aa.pdf", visDocExIntentScreen, visPrintAll) ‘导出PDF
      

     '将每一页导出图片
     Dim vsoPage As Visio.Page
     Dim i As Integer
     
     For i = 1 To ThisDocument.Pages.Count
         Set vsoPage = ThisDocument.Pages.Item(i)
         Call vsoPage.Export("c:\" & vsoPage.Name & ".jpg")
      Next

    展开全文
  • VBA Programming in Visio

    2009-08-20 09:09:06
    介绍如何在Visio中进行VBA编程,如何操作VBA对象,如何响应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

    展开全文
  • 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.ContainerProperties.AddMember.txt Visio.ContainerProperties.txt Visio.DropContainer.txt Visio.Page.DropCallout.txt Visio.Page.DropConnected.txt Visio.ReadAndWriteRasterExportResolution.txt Visio...
  • 项目中,我们用word撰写各类技术文件时,常常需要编辑或加载大量的Visio图,例如各类业务流程图、组织架构图、系统架构图、功能结构图等等,这些图越多,后期word排版工作就越繁琐,占用大量宝贵时间和人力。...
  • 上周派到了个case, 是批量从Excel导出数据导Visio每个图形中. 花了些时间实现了这个功能. 原理如下: 打开Excel 新建/打开表单 指向所选择的表单 遍历所在列的所有数据 打开Visio 建立/打开Visio页面...
  • 其实Visio中的每个shape(包括你画的图形,线条等等),后台都有一个表来记录所有的属性,这个表我们叫做ShapeSheet.VBA编程中,你可能需要获取shape属性,其实也可以在这里参考: Open a Visio diagram containing...
  • 最简单的方法: 打开任务管理器关闭
  • 1、vba遍历要添加引用,runtime 2、不能打开单独的application,因为在获取到shape的picture属性时候,新打开的application不能够获取到。提示自动化错误。 3、定位shape的话,需要shape的宽高,因为是基于中心点...
  •  Visio.Shape, celObj  As  Visio.Cell   Dim  ShpNo  As   Integer , Tabchr  As   String , localCent  As   Double   Dim  LocationX  As   String , LocationY  As   String   Dim  ...
  • Visio.Application.Vbe.ActiveVBproject.VBComponents.Remove Visio.Application.Vbe.ActiveVBproject.VBComponents(modName) End If Exit Function ErrHandler: MsgBox Err.Description End Function ...
  • 最近有个小项目,需要将excel表格里的某几项通过自制的VBA代码而导入到visio里绘制出矩阵流程图,希望会vba开发的大神可以指点下 [img=https://img-bbs.csdn.net/upload/201611/01/1478007405_556231.png][/img] ...
  • Visio开发实例

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

    2019-06-21 12:25:15
    最全的 VBA 集合,推荐下载 内容包括:Office Share,Access Excel Onenote outlok ppt publisher visio word 9 个 VBA帮助。
  • 开发Microsoft Visio解决方案

    热门讨论 2012-02-14 00:15:38
    使用Microsoft Visual Basic for Application(VBA)扩展Visio,或者将 Visio用作自己应用程序的一个组件的信息、提示和技术。 介绍如何使用Microsoft Visual Basic和C++编程语言来开发将Visio应用程序当作组件使用...
  • 使用Microsoft Visual Basic for Application(VBA)扩展Visio,或者将 Visio用作自己 应用程序的一个组件的信息、提示和技术。 介绍如何使用Microsoft Visual Basic和C++编程语言来开发将Visio应用程序当作组件使用...
  • Visio二次开发(一)----巧用Visio

    万次阅读 热门讨论 2015-09-16 23:14:20
    最近做的项目中需要用到Visio二次开发,安装了Visio的SDK,还有从网上找了一些这方面的博客,Visio...就是巧用Visio的宏来帮助你进行二次开发,通过Visio宏的录制功能,将你对Visio的具体操作转换成VBA代码,这样你就会
  • 然后延展到Access, Word, Outlook, Powerpoint和Visio. 很多VBA初学者最初接触的大概也是Excel VBA对象模型。Excel VBA对象模型看起来比较复杂 (下图是部分对象模型),但常用到的对象和集合还是比较固定的 (下面以...
  • visio无法关闭问题

    千次阅读 2011-10-26 17:17:32
    visio的绘图过程中碰到:“你不能退出visio因为某程序正在处理来自visio的事件,如果VBA处于断点可重置VBA,然后在退出”的错误窗口提示。。这样visio导致无法正常退出,十分头疼。。 (最开始是报剪切板出错的提示...
  • 使用Microsoft Visual Basic for Application(VBA)扩展Visio,或者将 Visio用作自己 应用程序的一个组件的信息、提示和技术。 介绍如何使用Microsoft Visual Basic和C++编程语言来开发将Visio应用程序当作组件使用...
  • excel表中的字段转变为visio中的uml图

    千次阅读 2017-07-19 10:37:02
    vba将excel中属性转为visio中的uml图
  • 如何在Vs.net环境中自动生成Visio

    千次阅读 2008-01-04 15:19:00
    如何在Vs.net环境中自动生成Visio图 摘要:本文介绍了如何在VS.Net环境中,结合VBA编写Visio应用程序,来实现自动绘制Visio图的方法和过程。关键字:VS.Net;VBA;程序;自动生成;Visio图。中图法分类号: ...
  • Outlook 2013 Developer Documentation.chm Excel 2013 Developer Documentation.chm Word 2013 Developer Documentation.chm ...Visio 2013 Developer Documentation.chm Access 2013 Developer Documentation
  • 寻求帮助 PPT和word里嵌入了一些visio对象,一个一个另存出vsd...如果需要编程解决问题可以帮提供下关键代码吗,比如VBA 我需要把word和ppt中visio对象导出来,导出的visio文件后缀是vsd,然后重新编辑vsd内容。
  • 例:VBA获取shape position Public Sub LocationTable() 'This routine will create a text file of the location and size of all 2-d shapes ' on the current page Dim shpObj As Visio.Shap...
  • This program (Advanced VBA Password Recovery PRO, or simply AVPRP) can be used to recover or remove lost or forgotten passwords to view and edit Visual Basic for Applications (VBA) projects source ...

空空如也

空空如也

1 2 3 4
收藏数 61
精华内容 24
关键字:

vbavisio