[求助]excel如何引用图片(最好能把图片固定到单元格

AZA

QUOTE:

以下是引用好为人师在2006-11-2 21:06:41的发言：

我已经修改好了，可以在实现我上面（8楼）的功能，现共享

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Dim objDraw As Object

With Target
    If .Columns.Count > 1 Then Exit Sub
    If .Column = 1 Or .Column = 3 Then
        Set Rng = Columns(8).Find(.Value, lookat:=xlWhole, MatchCase:=True)
        If Not Rng Is Nothing Then
            For Each objDraw In ActiveSheet.DrawingObjects
                If .Offset(0, 1).Address = objDraw.TopLeftCell.Address Then
                    objDraw.Delete
                End If
            Next
            Rng.Offset(0, 1).Copy .Offset(0, 1)
            If .RowHeight < Rng.RowHeight Or .ColumnWidth < Rng.ColumnWidth Then
                .RowHeight = Rng.RowHeight
                .Offset(0, 1).ColumnWidth = Rng.ColumnWidth
            End If
        End If
    End If
End With
End Sub

不错！学习……收藏！

qwertyuioppp

能以"Sheet1"为图片库.在"Sheet2"的A1里输入编号,显示相应图片吗?不好意思,我一点不会,只是需要达到这个效果,请帮帮忙!

xuxi20734

[em02][em04][em06]