彰化一整天的論壇

 找回密碼
 立即註冊
查看: 738|回復: 0

檢查儲存格上是否有圖片的副程式

[複製鏈接]
發表於 2014-5-9 17:17:47 | 顯示全部樓層 |閱讀模式
  1. Function HASpic(Cell As Range) As Boolean

  2. '  Yields TRUE if the cell identified by row and col contains a picture,
  3. '  otherwise FALSE

  4.    Dim Caddress      As String
  5.    Dim Pict          As Object
  6.    
  7.    Application.Volatile
  8.    Caddress = Cell.Address
  9.    
  10.    For Each Pict In Application.Caller.Parent.Pictures
  11.       If Pict.TopLeftCell.Address = Caddress Then
  12.          HASpic = True
  13.          Exit Function
  14.       End If
  15.    Next Pict
  16.    HASpic = False
  17.    
  18. End Function
複製代碼
參考資料:http://www.mrexcel.com/forum/exc ... -image-picture.html
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2020-2-25 15:02 , Processed in 0.316524 second(s), 21 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表