5,140
社区成员
发帖
与我相关
我的任务
分享非常具有挑战性的问题!!!
如何在EXCEL中动态的显示图片,要求如下:
1.在某一CELL中输入图片的绝对路径,移开焦点后,在该cell中自动显示图片,并且图片可根据列的大小自动适应.
请高手帮忙!!
请问EXCEL能做到吗??
1.在某一CELL中输入图片的绝对路径,移开焦点后,在该cell中自动显示图片,并且图片可根据列的大小自动适应.
请高手帮忙!!
请问EXCEL能做到吗??
...全文
请发表友善的回复…
发表回复
icansaymyabc 2003-07-22
- 打赏
- 举报
夸大其词了，半点挑战性都没有，上当了。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Shape, r As Single
If Dir(Target.Text) <> "" Then
ActiveSheet.Pictures.Insert(Target.Text).Select
Selection.ShapeRange.Top = Target.Top
Selection.ShapeRange.Left = Target.Left
r = Target.Width / Selection.ShapeRange.Width
Selection.ShapeRange.ScaleWidth r, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight r, msoFalse, msoScaleFromTopLeft
Rows(Target.Row).RowHeight = Selection.ShapeRange.Height
Selection.Placement = xlMoveAndSize
Selection.PrintObject = True
Target.Select
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Shape, r As Single
If Dir(Target.Text) <> "" Then
ActiveSheet.Pictures.Insert(Target.Text).Select
Selection.ShapeRange.Top = Target.Top
Selection.ShapeRange.Left = Target.Left
r = Target.Width / Selection.ShapeRange.Width
Selection.ShapeRange.ScaleWidth r, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight r, msoFalse, msoScaleFromTopLeft
Rows(Target.Row).RowHeight = Selection.ShapeRange.Height
Selection.Placement = xlMoveAndSize
Selection.PrintObject = True
Target.Select
End If
End Sub
cejiang 2003-07-22
- 打赏
- 举报
捕获Sheet的change事件，获得输入的路径，打开并显示图片即可
