返回列表 上一主題 發帖

[發問] 請問如何點擊圖片作放大效果的巨集

dsbleed

帖子
6 
主題
0 
精華
0 
積分
30 
點名
0  
作業系統
winxp 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
註冊時間
2011-2-21 
最後登錄
2011-4-20 
1# 跳轉到 »
發表於 2011-2-24 20:34 | 顯示全部帖子
請問版主,是否只要將"回復 5# cmo140497"的程式完成key in 至excel巨集的指定位置,即可對於所插入的圖片都可以有對圖片點一下,就可以放大的效果。對巨集還非常陌生的初學者。謝謝∼
另外提供一個方式，可以不用寫程式也可以讓圖片稍為放大的效果，就是利用儲存格的備註效果，將備註格式填滿效果改為所需要的圖片，再將備註拉至所需要的大小，之後只要滑鼠停留在該儲存格，即可出現圖片。
50 字節以內
不支持自定義 Discuz! 代碼

TOP

dsbleed

帖子
6 
主題
0 
精華
0 
積分
30 
點名
0  
作業系統
winxp 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
註冊時間
2011-2-21 
最後登錄
2011-4-20 
2#
發表於 2011-2-24 22:42 | 顯示全部帖子
感謝版主的解答,依版主的程式碼 key in 試試看~~若有問題,再煩麻版主再給予解答指教~~謝謝~~
50 字節以內
不支持自定義 Discuz! 代碼

TOP

dsbleed

帖子
6 
主題
0 
精華
0 
積分
30 
點名
0  
作業系統
winxp 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
註冊時間
2011-2-21 
最後登錄
2011-4-20 
3#
發表於 2011-2-25 13:59 | 顯示全部帖子
請問版主,依照程式key in 之後,並不能執行現出訊息為：執行階段錯誤"13"型態不符合，
然後在With Sheet1.Shapes(sh)出現問題。不否麻煩版主看看∼謝謝∼∼
所key in 之程式如下：
Sub Macro1()
Dim a As Range
sh = Application.Caller
With Sheet1.Shapes(sh)
Set a = .TopLeftCell
h = a.Height
w = a.Width
.LockAspectRatio = msoFalse
.Height = IIf(.Height = h, h * 2, h)
.Width = IIf(.Width = w, w * 2, w)
.ZOrder msoBringToFront
End With
End Sub



Private Sub Workbook_Open()
Dim sh As Shape
With Sheet1
For Each sh In .Shapes
With sh
.OnAction = "Shape_Zoom"
.Height = .TopLeftCell.Height
.Width = .TopLeftCell.Width
End With
Next
End With
End Sub
50 字節以內
不支持自定義 Discuz! 代碼

TOP

dsbleed

帖子
6 
主題
0 
精華
0 
積分
30 
點名
0  
作業系統
winxp 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
註冊時間
2011-2-21 
最後登錄
2011-4-20 
4#
發表於 2011-2-25 19:03 | 顯示全部帖子
感謝版主的解答，程式ＯＫ∼∼謝謝∼
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題