刚发现IMAGE控件的新问题

lthnds

我做了一个员工信息数据库，在personal表中使用了image控件从文件夹pic中读取照片（只是在查阅个人信息的时候显示一次，控件只有一个），本意是想减少数据库的体积。
实现代码如下：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.   Dim str As String  
   
3.   StrPath = ThisWorkbook.Path
   
4.   If VBA.Left$(StrPath, 1) <> "" Then StrPath = StrPath & ""
   
5.   StrPath = StrPath & "pic"
   
6.   
   
7.   With Sheets("personal")
   
8.     If Target.Column = 3 Then
   
9.     Image1.Picture = LoadPicture()
   
10.     str = .Range("c6").Value
    
11.     str = StrPath & str & ".jpg"
    
12.     On Error Resume Next
    
13.     Image1.Picture = LoadPicture(str)
    
14.     '.Range("B24") = str
    
15.     End If
    
16.   End With
    
17. End Sub
    
18. 
    

复制代码

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

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

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


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

lthnds

我想这可能符合MICROSOFT一贯风格，时间与垃圾同步

是不是将临时文件信息写入了文档（我都是在保存后发现体积巨增的）？

盼高人教我一个清除无用的隐藏垃圾信息数据的VBA代码

sgrshh29

改成这样，试了十余张图片，没有发现体积问题。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
  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"
    Image1.Picture = LoadPicture(str)
    '.Range("B24") = str
    End If
  End With
End Sub

lthnds

谢谢　你的代码比我的更规范　

lthnds

我用了个笨办法，将工作薄设为只读　
将数据源与数据表现两分离

现在体积不再增加


但是又出现了新的问题：当数据源文件没有打开时，数据表现文件中读不出数据，所以我还想请教一个问题－－
如何用一个打开的工作薄读取另一个没有打开的工作薄内的数据？？？

等待高手解答。。。

谢谢所有帮助我的人

Spirit2012

lthnds 发表于 2008-12-22 20:07
我用了个笨办法，将工作薄设为只读　
将数据源与数据表现两分离

但是又出现了新的问题：当数据源文件没有打开时，数据表现文件中读不出数据，所以我还想请教一个问题－－
如何用一个打开的工作薄读取另一个没有打开的工作薄内的数据？？？
---------------------------------------------------------------------------------------------------------------------------------------------------
我是将两个工作簿放在同一个文件夹下，只打开数据表，可以正常读取数据源文件。