Office中国论坛/Access中国论坛

标题: 圖片能否自動根據單元格縮方大小在內(問題以解決謝謝幫忙) [打印本页]

作者: joyark 时间: 2005-1-28 13:12
标题: 圖片能否自動根據單元格縮方大小在內(問題以解決謝謝幫忙)

<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>

請幫忙

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

能否多一張圖片

謝謝

[attach]8826[/attach]

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编辑过]

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

作者: joyark 时间: 2005-1-29 01:55
老鬼你好

請幫忙

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

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

謝謝[attach]8847[/attach]

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

作者: 老鬼 时间: 2005-1-29 02:09
对不起，实在看不懂“能否增加多一张”，是什么意思？

作者: zyz218 时间: 2005-1-29 18:41
是啊,把问题说清楚点吧

作者: joyark 时间: 2005-1-30 03:57
附件在三樓

謝謝幫忙

作者: 老鬼 时间: 2005-1-30 08:26
你的机子是不是不能打汉字，不然为什么你打出来的句子总让人看不懂呢？

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

作者: joyark 时间: 2005-1-30 09:49
現時圖片增加很好

简化了的源码是非常好

果然真是高手

謝謝你幫了這個忙

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)