VBA语句求解
答案:2 悬赏:10 手机版
解决时间 2021-03-21 13:26
- 提问者网友:骑士
- 2021-03-20 15:36
VBA语句求解
最佳答案
- 五星知识达人网友:有你哪都是故乡
- 2021-03-20 16:16
function是用来返回值得,不能做这个操作,最多修改单元格的注释,别的干不了
改用sub吧追问这是我搬别人的,之前都好用,就是把表格保护起来就不行,我保护的是B4单元格,因为取数是取的B4,其他都没变化,
SUB 我不知道怎么用追答给你段书上的原话,你参考吧
改用sub吧追问这是我搬别人的,之前都好用,就是把表格保护起来就不行,我保护的是B4单元格,因为取数是取的B4,其他都没变化,
SUB 我不知道怎么用追答给你段书上的原话,你参考吧
全部回答
- 1楼网友:低血压的长颈鹿
- 2021-03-20 16:35
最可能是F_Name尚未赋值,或者赋值了但是不存在该图片。
在前面添加debug.print F_Name试验一下其赋值与否。追问这个F_NAME名字是自动创建的,如果插入成功就会自动删除掉,只有不成功的才能再文件夹中看到这个图片,debug。print这个要加在哪啊 我是小白 求指点追答debug.print可以加在赋值之后和再次引用之前。追问好高深,我这是抄来的追答
ActiveCell.Offset(0, 0).Select
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "" & "F_Name" & ".bmp")
.Left = Range("B2").Left
.Top = Range("B2").Top
End With
End Sub
在前面添加debug.print F_Name试验一下其赋值与否。追问这个F_NAME名字是自动创建的,如果插入成功就会自动删除掉,只有不成功的才能再文件夹中看到这个图片,debug。print这个要加在哪啊 我是小白 求指点追答debug.print可以加在赋值之后和再次引用之前。追问好高深,我这是抄来的追答
在该工作簿下建立一图片文件,名称为F_Name.bmp,试验如下代码:
Sub Test()ActiveCell.Offset(0, 0).Select
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "" & "F_Name" & ".bmp")
.Left = Range("B2").Left
.Top = Range("B2").Top
End With
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯