双击单元格自动弹出添加图片/附件对话几框

burce

Private Sub Worksheet_BeforeDoubleClick(ByVal Target AsRange, Cancel As Boolean)

'B3为"附件"属性的字段，"H2"为流程状态字段，通过表间公式记录流程的状态，H2="" 表示模板流程第一个流程结束。

'H2=1 表示模板是出于第一个流程的"填报"或者修改的状态，双击添加附件和双击添加图片有效状态。

Dim path

Dim oAdd As Object

Dim addfile

Set oAdd =Application.COMAddIns("ESClient10.Connect").Object

'双击B3单元格时实现添加附加

If Target.Address = "$B$3" AndRange("h2") = 1 Then

path = Application.GetOpenFilename  ' 获取文件地址到变量中

If path <> False Then

addfile = oAdd.addlink(path, 1, 3, 2)  '将文件地址以超链接的方式插入到B3附件字段中

End If

'添加图片到C4中

ElseIf Target.Address = "$C$4D$4" AndRange("h2") = 1 Then

path = Application.GetOpenFilename("图片文件(*.jpg;*.png;*.gif;*.bmp),*.jpg;*.png;*.gif;*.bmp",, "插入图片") ' 获取图片地址到变量中

If path <> False Then

addfile = oAdd.AddPicture(path, 1, 4, 3)  '将图片插入到字段中C4图片字段中  表示sheet(1).C4

'或者以下写法也是一样的

oAdd.AddPicturepath, 1, 4, 3

Range("B4").Select

End If

End If

Set path = Nothing

Set addfile = Nothing

Set oAdd = Nothing

End Sub

lubisong

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

lubisong

学学中学学学学中学学中学学中学学中学学中中学学中学学中学学中

nporbon

能把提交一个带这些代码的excel文件就更好了！

heian

分局的人口被卷入的福彩双色球基恩太感人了口碑我宁可VR人均内部单位热VR你发来看不得v3knrlfb我的VR那如来佛斯巴达克VR驴肉给快来人防你
福彩七乐彩高级版的打卡机通过囸v我就让人开不了单位和TV旅客变了味v5tk4bkwdevktb二开我呢v他别克女童来看vdwneblttkndw5v3knbedkwe5v天可牛逼了开通离开你退了吧恩科v他太空步的VN他老人别克女童入库表鄂旅投v看你退了吧额v看图呢被v看他人看不完了v他过坎他本科他理工科天布兰肯瑞特概念图巴洛克图扣女了讨论开通过不然咧看听力课本老人头5开头难本来扣款金额特博尔今天来看热发了开个嗯开通了宽腿裤你太棒了开人要看他了吧问题可能他离开家不儿童机入额客人2客家人本科天然公开同款  

勤哲excel_林工

目前版本已提供点击弹出附加附件窗口。点击弹出图片窗口功能稍后提供