圖片能否自動根據單元格縮方大小在內(問題以解決謝謝幫忙)

joyark

<COLGROUP>

<COL style="WIDTH: 149pt; mso-width-source: userset; mso-width-alt: 6336" width=198>

<COL style="WIDTH: 18pt; mso-width-source: userset; mso-width-alt: 768" width=24>

<COL style="WIDTH: 125pt; mso-width-source: userset; mso-width-alt: 5312" width=166>





請幫忙









圖片能否自動根據單元格縮方大小在內

能否多一張圖片







謝謝



Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next

    If Target.Address = "$B$1" Then

        Cnt = ActiveSheet.Shapes.Count

        For n = 1 To Cnt

            If Left(ActiveSheet.Shapes(n).Name, 7) <> "Drop Down" Then

               ActiveSheet.Shapes(n).Delete

            End If

        Next n

        Range("D1").Select

        ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\tp\" & Target.Value & ".JPG").Select

        With Selection

            .Top = Range("D1").Top

            .Left = Range("D1").Left

            .Height = Range("D1:E6").Height

            .Width = Range("D1:E6").Width

        End With

        [D1].Select

    End If

End Sub

能否增加多一張

[此贴子已经被作者于2005-1-30 1:58:26编辑过]

老鬼

你是要让图片根据单元格大小自动缩放吗？参考一下这个贴子：http://www.office-cn.net/forum.php?mod=viewthread&tid=23714

joyark

老鬼你好

請幫忙

是在工作能否增加多一至三張

現時圖片增加後(底圖片還在)

謝謝

[此贴子已经被作者于2005-1-28 20:34:12编辑过]

老鬼

对不起，实在看不懂“能否增加多一张”，是什么意思？

zyz218

是啊,把问题说清楚点吧

joyark

附件在三樓

謝謝幫忙

老鬼

你的机子是不是不能打汉字，不然为什么你打出来的句子总让人看不懂呢？

按我的理解，你是想根据不同单元格的变化引用相应的图片，而旧图能同时顺利删除。所以请看示例，希望没有理解错误。不过即使理解错误，也已经大大简化了你的源码。你的源码实在太罗嗦了~~~~

joyark

現時圖片增加很好

简化了的源码是非常好

果然真是高手

謝謝你幫了這個忙

{提供查詢產品項業人使用}

[此贴子已经被作者于2005-1-30 1:52:35编辑过]