VBA中使用Shape.AddOLEObject的问题

于 2022-12-07 16:07:44 发布
阅读量844 收藏
点赞数
分类专栏： VBA 文章标签： windows
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_44125296/article/details/128221779
版权

ActiveSheet.OLEObjects.Add(Filename:="g", _
         Link:=False, DisplayAsIcon:=True, _
         IconFileName:="""E:\Program Files\Foxit PDF Reader\FoxitPDFReader.exe""", _
         IconIndex:=0, _
         IconLabel:=h).Select

如上代码，g是我定义过的一个路径，g = C:\Users\auto\Desktop\A5\Y1105-467-a01.pdf

因为路径和文件名是可变的，所以用Application.FileDialog获取的路径组合文件名称组成的变量来代替Filename的值，结果运行显示1004，不能插入对象，如果改成Filename:="C:\Users\auto\Desktop\A5\Y1105-467-a01.pdf"就可以运行

我定义的g是Variant类型，参数Fliename也是Variant类型，为什么用g就不能运行呢

无-衣
关注
专栏目录
【VBA研究】再论“找不到工程或库“ 解决方案
驽马十驾 才定不舍
09-15 1万+
这种情况如何处理呢？其实也很简单：首先是将能去掉的去掉，只留下不能去掉的，然后将.xlsm文件再另存为.xls，关闭文件再重新打开，那些去不掉的“丢失”就没有了。我用Excel-VBA做的工具（宏）经常在WPS环境下使用，导致的结果就是有问题时，将工具发回来我调试的时候用不起来，总是报"找不到工程或库"错误。在VBA编辑环境点击“工具”-“引用”，就可以看到“丢失”什么库，一般情况下，将丢失库前面的勾选去掉问题就解决了。刚看到这个报错总是莫名其妙，其实这个问题以前碰到过，就是WPS使用环境造成的。
VBA编程技巧大全
08-05
131-2 在Listview控件中使用复选框 317 131-3 调整Listview控件的行距 319 131-4 在Listview控件中排序 322 131-5 Listview控件的图标设置 323 技巧132 调用非模式窗体 326 技巧133 进度条的制作 328 133-1 使用...
vba Execl 为工作表添加控件
ヅEpisode`√
12-20 696
  1. 用OLE的方法为工作表添加控件，返回值是OLEObject，返回值 .object就是被添加控件的类型，例如下面这个添加一个图表控件，myTChart 就是被添加控件，可以设置相关属性和调用方法 dim oleObject as OLEObject dim myTChart as TeeChart.TChart set oleObject = ActiveSheet.OLEOb...
VBA AddOLEObject方法
yannizhang的专栏
12-08 8460
<br />应用于 InlineShapes对象的 AddOLEObject方法。<br />创建一个 OLE对象。返回代表新 OLE对象的InlineShape对象。<br />expression.AddOLEObject(ClassType, FileName, LinkToFile, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Range)<br />expression   必需。该表达式返回一个 InlineShapes对象。<br />
Excel使用VBA批量插入Object
weixin_34377919的博客
04-30 3161
前言 老姐让我帮她写个程序，要在Excel中插入附件啥的，不然她五一放假就要加班了，所以我就在加班的期间查了查资料，一开始理解错题意，以为是要把PDF转换为Excel，还想着要用Python来写，后面发现，是要插入附件，可以用VBA来写。 由于微软Office软件的普及，人们常见的办公软件Office软件中的Word、Excel、Access、Powerpoint都可以利用VBA使这些软件的应用...
Java 添加OLE对象到Excel文档
Eiceblue的专栏
02-18 976
本文介绍通过Java程序添加OLE对象到Excel文档。OLE分为两种形式，一种通过嵌入（Embed），方式，一种通过链接（Link）方式。前者是将对象嵌入到文档中，外部对该对象的更改不影响嵌入操作时的对象；后者是以链接形式来保存对象，外部任何对该对象的更改都会影响文档。这里的对象，支持多种不同类型（如下图），如PDF、Word、Excel、PPT等常见格式的文档类型。 本文中的Java代码...
C# Excel插入Object
一只飞哥哥!的博客
06-20 2291
C# Excel插入Object---OLEObjects对象 在利用excel时，我们有时需要插入一个word、excel文件等，如果插入超链接可能在另一台电脑上就看不到我们插入的文件，其实直接插入对象就可以完成，这里就要引用到一个知识点 OLEObjects对象(Excel)的Add方法
使用vba编程 在powerpoint中插入公式
06-09
您可以使用以下 VBA 代码将 LaTeX 公式插入 PowerPoint 中： ``` Sub InsertFormula() Dim formula As String formula = "Your LaTeX formula here" Dim oSh As Shape Set oSh = ActivePresentation.Slides(1...
powerpoint vba文本框中怎么插入数学公式 示例
06-09
无论您选择哪种方法，都可以在 VBA 代码中使用 `Shapes.AddOLEObject` 方法将数学公式插入文本框。以下是一个示例代码： ```vb Sub InsertMathEquation() Dim slide As Slide Dim shape As Shape '获取当前...
powerpoint公式对象 vba使用实例
最新发布
06-10
下面是一个使用 VBA 插入公式对象的示例： ```VBA Sub InsertEquationObject() '定义变量 Dim sld As Slide Dim shp As Shape '获取当前幻灯片 Set sld = ActivePresentation.Slides(1) '在当前幻灯片中...
powerpoint可以通过vba代码在文本框中实现墨迹公式的功能吗
06-08
你可以使用VBA代码获取和设置InkEdit控件中的内容，还可以将其保存为图像或其他格式。以下是一个简单的示例代码，可以在PowerPoint中创建文本框和墨迹公式： ``` Sub AddInkEditToTextbox() Dim slide As Slide ...
VBA一些零碎知识
l00109503的专栏
03-27 540
1，动态创建空间 ActiveSheet.OLEObjects.Add ClassType:="Forms.CheckBox.1", Link:=False, DisplayAsIcon:=False, Left:=300, top:=topnum, Width:=80, Height:=302，得到当前选中单元的行数ActiveCell.Row 3，设置工作表保护先取消工作表
Excel VBA 在工作表(Worksheet)中动态添加按钮控件并添加事件的示例
fenghome的专栏
08-27 2万+
Sub MakeButton() '自动添加一个Sheet '动态生成一个按钮控件 '动态生成事件 '     Dim WSheet As Worksheet     Dim MyNewbtn As OLEObject     Dim Target As Range     Dim ShtCodeName As String     Set WSheet = Worksheets
全面接触PDF:最好用的PDF软件汇总(2010-12-07更新)
_Witch__的专栏
08-31 3925
http://xbeta.info/pdf-software.htm 全面接触PDF:最好用的PDF软件汇总(2010-12-07更新) 作者: 善用佳软　　日期: 2010-12-07　　分类: 1 文本办公, PDF　　 标签: PDF 2010-12-07更新 :2.3 图像转PDF 《全面接触PDF:最好用的PDF软件汇总》旨在介
VBA代码自学收集（150例）
热门推荐
qq_38220914的博客
10-29 3万+
VBA代码自学收集（150例）
PowerPoint2003上嵌入Excel Sheet
红泥屋
06-26 921
一下代码在PowerPoint2003的第二个Slide上嵌入一个Excel Sheet（有且只有一个Sheet)。 using System; using System.IO; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using
VBA窗体form和控件初接触(3): 窗体控件名加变量进行控制等
奔跑的犀牛先生
12-08 4269
窗体控件名加参数等 Controls("Label" & (41 + I)).Caption = "中了第" & ws1.Range("g23") & "个" & Chr(10) & ws1.Range(" k23") & "*" & ws1.Range(" m23") Controls("Label" & (41 + I)).Caption If Sheets(j).Name = sht_Name Then ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值