[已解决][求助]关于image控件最基础的用法

lthnds · 发表于 2008-12-19 23:30

我一个初学的菜鸟

遇到了一个关于image控件的基础用法：我写了一段代码，总是不见反映　　晕不？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 And Target.Row = 5 Then
Dim Myname As String
Dim StrPath As String
Dim StrPic  As String
StrPath = ThisWorkbook.Path
  If VBA.Left$(StrPath, 1) <> "\" Then
  StrPath = StrPath & "\"
  End If
StrPath = StrPath & "pic\"
  Image1.Picture = LoadPicture("")
  Myname = Target.Cells(5, 3)
  StrPic = Dir(StrPath & "Myname.jpg")
  Image1.Picture = LoadPicture(StrPic)
End If
End Sub

请高手帮忙看下　顺便帮我设置一下照片的参数，使整张照片完整地显示在图片框内，而不是照片的局部

YyzTBCBF.rar (58.79 KB, 下载次数: 32)

lthnds · 发表于 2008-12-20 10:45

各位老师，也许您花五分钟的时间，就可以让我节约一周的时间　

mxg825 · 发表于 2008-12-20 11:56

这个最佳答案由 mxg825 给出，感谢 mxg825 的回答。

单击隐藏图章

. 楼主先搜一下：我以前做过相关的贴子！

员工简历管理之自动显示照片(免费开放2楼）1楼有放大效果
作者：mxg825 浏览：1043 回复：23 → 『VBA程序开发』 2008-6-2 17:46:00

lthnds · 发表于 2008-12-20 18:11

谢谢MXG老师

现在可以读取图片啦

修订后的代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim str As String
  StrPath = ThisWorkbook.Path
If VBA.Left$(StrPath, 1) <> "\" Then StrPath = StrPath & "\"
StrPath = StrPath & "pic\"

With Sheets("personal")
    If Target.Column = 3 Then
    Image1.Picture = LoadPicture()
    str = .Range("c6").Value
    str = StrPath & str & ".jpg"
    On Error Resume Next
    Image1.Picture = LoadPicture(str)
    '.Range("B24") = str
    End If
End With
End Sub

但产生了两个新的问题（都比较严重）：

一是excel体积随着读取文件次数的增加不断地膨胀，晕呀　本来想从文件夹读取照片就是想减少体积的，这下可好啦，与时俱增啦。。。

二、当照片大于图片框时，只能显示照片的一部分。

在线等候有老师再度指点我。。。

mxg825 · 发表于 2008-12-22 12:39

上传你的附件

bluexuemei · 发表于 2012-9-9 17:33

设置属性Picturesizemode为3试验一下

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