照片引用问题——紧急求助各位高手指点迷津

lheqian · 发表于 2010-3-11 14:25

要实现的东西，附件里进行了说明。如蒙赐教，最好是附件里改好，再上传附件。紧急，多谢版主和路过的大侠，帮帮菜鸟吧。

lheqian · 发表于 2010-3-11 14:29

小弟qq：121182147

masterexcel · 发表于 2010-3-11 14:39

看楼主急的这样，来段代码，仅供参考，稍作修改即可使用：

Sub Insert_Picture()
FileName = Application.GetOpenFilename
Set tmpRange = Application.InputBox("Please select one cell to insert the picture!", Type:=8)
Application.ScreenUpdating = False
t = tmpRange.Top
l = tmpRange.Left
h = tmpRange.Offset(tmpRange.Rows.Count, 0).Top - tmpRange.Top
w = tmpRange.Offset(0, tmpRange.Columns.Count).Left - tmpRange.Left
On Error GoTo ErrTrap
Debug.Print tmpRange.Parent.Name
Set p = tmpRange.Parent.Pictures.Insert(FileName)
With p
.Top = t
.Left = l
.Height = h
.Width = w
End With
Set tmpRange = Nothing
Set p = Nothing
exitsub:
Application.ScreenUpdating = True
Exit Sub
ErrTrap:
Application.ScreenUpdating = True
ErrNumber = Err.Number
If ErrNumber = 1004 Then
MsgBox "The file selected is not a valid picture!", vbInformation
End If
Set tmpRange = Nothing
Set p = Nothing
GoTo exitsub
End Sub

复制代码

lheqian · 发表于 2010-3-11 14:44

但请恕小弟愚钝，看不懂代码啊可否告知何处需要作何修改

lheqian · 发表于 2010-3-11 14:55

试了下未能达到预期效果，可否在我的附件中修改小，不胜感激。

lheqian · 发表于 2010-3-11 15:09

如果等待不再是等待

lheqian · 发表于 2010-3-11 15:34

恳请大家施以援手焦急等待中……

lheqian · 发表于 2010-3-11 15:43

焦急等待中……

lheqian · 发表于 2010-3-11 16:10

问了问我们单位的excel用的比较多的同事不会啊，哎真是急人啊

lheqian · 发表于 2010-3-11 16:43

继续在线等待

		自动登录	找回密码
密码			免费注册

[求助] 照片引用问题——紧急求助各位高手指点迷津