12
返回列表 上一主題 發帖

一個放大圖片問題

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
11# 跳轉到 »
發表於 2010-12-22 13:32 | 只看該作者
hsieh大大:
大大真的很捧, 謝過..

TOP

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
12#
發表於 2011-10-21 08:02 | 只看該作者
Hsieh版主大大,好
換了07excel, 程式沒法運行, 何解..
在03中是沒有問題存在, 請大大指導, 附件,
謝謝!!
Book1.rar (39.04 KB)

TOP

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
13#
發表於 2011-10-23 16:28 | 只看該作者
小妹真的希望能知道原因, 現再度整理檔案上傳, 望大大們能協助, 謝謝!!
ShowPicture.rar (249.28 KB)

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
253  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
14#
發表於 2011-10-23 16:40 | 只看該作者
本帖最後由 Hsieh 於 2011-10-23 16:41 編輯

回復 13# 317

在這句
If sh.Name Like "Picture*"
因為你插入的圖片名稱是中文"圖片3"
所以沒有指定巨集給他
  1. Private Sub Workbook_Open()
  2. Set dic = CreateObject("Scripting.Dictionary")
  3. Dim sh As Shape
  4. For Each sh In Sheet1.Shapes
  5.    If sh.Name Like "Picture*" Or sh.Name Like "圖片*" Then sh.OnAction = "nn": dic(sh.Name & "h") = sh.Height: dic(sh.Name & "w") = sh.Width
  6. Next
  7. End Sub
複製代碼
學海無涯_不恥下問

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
15#
發表於 2011-10-23 16:53 | 只看該作者
想不到2007有這樣的問題
若用 If sh.Type = 13 Then…呢？這樣還有問題嗎？

TOP

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
16#
發表於 2011-10-23 17:13 | 只看該作者
衷心謝過两位版主大大,
祝願快樂, 感恩, 謝謝!!

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
253  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
17#
發表於 2011-10-23 17:17 | 只看該作者
回復 16# 317


    沒錯用Type做判斷是個可行的方法
學海無涯_不恥下問

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
12
返回列表 上一主題