求助!使用VBA实现在word中批量插入图片,并设置图片格式。
社区首页 (3046)
我加入的社区
我管理的社区
官方推荐社区
76
其他社区
3046
请编写您的帖子内容
社区频道(3)
显示侧栏
卡片版式
全部
博文收录
Ada助手
最新发布
最新回复
标题
阅读量
内容评分
精选
91
评分
3
求助!使用VBA实现在word中批量插入图片,并设置图片格式。
想实现一个功能:运行一个宏代码,选择多张图片插入到word文档中,这一批照片统一调整旋转90度和调整大小,然后按顺序依次排列。类似下图这样。由于插入图片后是嵌入型,无法调用rotation属性,只能做到改变大小;改变为其他型后可以旋转但是位置又都乱了
复制链接 扫一扫
分享
73
评分
回复
求助!使用VBA实现在word中批量插入图片,并设置图片格式。
想实现一个功能:运行一个宏代码,选择多张图片插入到word文档中,这一批照片统一调整旋转90度和调整大小,然后按顺序依次排列。类似下图这样。由于插入图片后是嵌入型,无法调用rotation属性,只能做到改变大小;改变为其他型后可以旋转但是位置又都乱了
复制链接 扫一扫
分享
688
评分
回复
ppt中如何用vba操作一支笔(这支笔是一个图片)逐渐绘制出一个心形
ppt中如何用vba操作一支笔(这支笔是一个图片)逐渐绘制出一个心形。 要求如上,重点是这个心形就像手工绘画一样,用笔一笔逐步画出心形外框。
复制链接 扫一扫
分享
194
评分
1
用Excel 2016打开宏文件,显示438错误(对象不支持此属性或方法)
我编写的一个输入调研数据的宏文件,用Excel2021打开保存操作正常,同事用2016版打开后什么也不做就点一下保存,然后再打开就显示438错误,上面所有按钮都冻结了。 打开工作簿过程写的代码是取消刷屏,取消工作表Sheet3保护,然后将表内输入框内
复制链接 扫一扫
分享
91
评分
回复
vba群发邮件,显示发送成功,为什么没有邮件啊
Sub 邮件群发() Dim yjcx As Object Dim yj As Object, ss As Range Set yjcx = CreateObject("Outlook.Application") zs = WorksheetFunc
复制链接 扫一扫
分享
178
评分
2
求助:根据货品分类自动生成货品编号
我会在表格中填上对应的分类,然后货品编号等于我的分类+5位数的流水号依次递增,我保存之后下次重新编辑,流水号自动延续上次生成的往下递增,请问下这个有可能实现吗?类似我表格这样,如果我删除之后重新编辑,希望下一个流水号是00003. 货品分类 货品编号
复制链接 扫一扫
分享
165
评分
2
有些菜,想问下为什么Range作用Global失败
有些菜,想问下为什么Range作用Global失败 Sub 群发助手50封邮件() '模组名字 Dim 邮件群发助手 As New Outlook.Application Set 邮件群发助手 = New Outlook.Application D
复制链接 扫一扫
分享
159
评分
回复
VBA怎么获取到WORD表格中选中的单元格?
VBA怎么获取到WORD表格中选中的单元格? 选中 选中 选中
复制链接 扫一扫
分享
169
评分
2
请教一个报错问题的解决
请教各位大神,黄色报错的列每个sheet对应框都已经赋值进去了,且分母值不为零,为何还是报错呀。
复制链接 扫一扫
分享
180
评分
4
关于Excel VBA 报错问题
请大家帮个忙,这报错的原因是什么呢!如下图:
复制链接 扫一扫
分享
140
评分
回复
代码运行时错误:'424',要求对象
Sub D_调拨清空() Application.ScreenUpdating = False With ActiveSheet .Range("C3") = "" .Range("C4") = "" .Range("B7:I56"
复制链接 扫一扫
分享
180
评分
1
VBA将Excel内容替换到word里面,字符串太长了报错了怎么办
VBA将Excel内容替换到word里面,字符串太长了报错了怎么办,我找了相关资料说超过255个字符就不行了
复制链接 扫一扫
分享
187
评分
5
循环查找字符找不到,但不循环却可以找到,求教问题在哪里
想在word文档中查找"1.“,"2.“这样的字符(数字+中文实心点号),文档中有这样的符号,但是却找不到,问在哪里,求赐教 Sub CheckOrderNo() Dim i As Integer Dim msg As String Dim tim
复制链接 扫一扫
分享
107
评分
回复
求助:根据极坐标,或者时直角坐标对应的值,使用插值算法,画出等值线
求助大神, 我有一组数据,如下,有极坐标和直角坐标,以及他们对应的值,现在需要画一个等值线的图,考虑到数据比较少,因此需要使用插值法。 因为公司的电脑无法使用类似于matalb以及surfer之类的软件,因此,只能通过excel VBA来实现。 请教
复制链接 扫一扫
分享
154
评分
回复
求助! F8调试正常,但是整个运行时保存
代码如下: Sub test() Dim st_data As Worksheet Dim st_temp As Worksheet Dim r_end As Long Dim path_output As String Dim my_Chart A
复制链接 扫一扫
分享
176
评分
回复
跪求大佬帮忙!急!谢谢!!
采购台账(最新).xlsx 19.60K 我想让采购台账这个表格填入收货数量后入库明细的所有数据对准采购台账里的数据!采购台账没有输入收获数量的时候入库明细不会显示采购台账里的数据
复制链接 扫一扫
分享
228
评分
2
使用VBA实现根据指定行自动粘贴对应列的内容
图一为原表,图二为目标表,图二中Number列固定不变,想实现根据固定Number,将图一中的各列关键字自动分配到对应位置。 图一 图二
复制链接 扫一扫
分享
221
评分
回复
[Excel VBA]如何批量產出QRcode?
QRcode常應用於產品上,不論是為了控管產品工序節點、或是控管產品售後質量,甚至是為了觸及更多消費者的行銷推廣活動。
复制链接 扫一扫
分享
153
评分
回复
word vba 中的find函数在文章中查找内容并作出计算
word vba 中的find函数在文章中查找内容并作出计算 mousejing2009-09-02 08:50:33 比如 我有一段文字如下(只是举例)找到一段文字: 身份证号码:220104197701050046,算一下他的年龄,并显示出来,身
复制链接 扫一扫
分享
365
评分
2
数据采集,网页爬虫出现验证码,登录要滑块怎么办?
现在网站验证码识别这一块你们水平怎么样? 好多网站采用了滑块解锁等高级技术,想用POST登录或跳过验证码检测就太难了。 你们一般是用什么方法的? 如果有的网站格式固定,可能有的人有专门的协议来处理这种验证码,也可以POST成功。 以前一般采用验证码图
复制链接 扫一扫
分享
为您搜索到以下结果: