返回列表 上一主題 發帖

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

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

[版主管理留言]
  • Hsieh(2011-2-21 15:24): 檔案損壞請重新上傳

本帖最後由 Hsieh 於 2011-2-21 19:36 編輯

更新文件 :

1.zip (309.6 KB)

Dear 各位前輩及版主 : 小弟想做文件內容圖片的點擊放大效果,在爬文後發現一篇類似文,但對其它巨集內容不是很了解,可否請版主或各位前輩
幫忙解釋一下,或有更好的方式,謝謝!
檔案命名有無法解讀字元,無法解壓縮

回復 1# cmo140497


    圖片放大
學海無涯_不恥下問

TOP

感謝版主,小弟曾有爬文到您所回覆的這篇,但小弟層級不夠,無法下載,且針對
於您文章中所提及Title"放大顯示於A1儲存格"及"一般模組",小弟不知道需將其
巨集貼至哪裡方可使用?且巨集一直alarm 型態不符合,感謝大大的協助,謝謝!

TOP

回復 4# donald


    感謝大大的指正,小弟實在是沒什麼概念,請教有沒有什麼書籍可以奠定基礎的,謝謝!

TOP

本帖最後由 Hsieh 於 2011-2-22 11:20 編輯

回復 5# cmo140497




放大圖片.rar (308.85 KB)
學海無涯_不恥下問

TOP

請問版主,是否只要將"回復 5# cmo140497"的程式完成key in 至excel巨集的指定位置,即可對於所插入的圖片都可以有對圖片點一下,就可以放大的效果。對巨集還非常陌生的初學者。謝謝~
另外提供一個方式,可以不用寫程式也可以讓圖片稍為放大的效果,就是利用儲存格的備註效果,將備註格式填滿效果改為所需要的圖片,再將備註拉至所需要的大小,之後只要滑鼠停留在該儲存格,即可出現圖片。
50 字節以內
不支持自定義 Discuz! 代碼

TOP

回復 8# dsbleed
照著KEY IN程式碼
重新開啟檔案即可
學海無涯_不恥下問

TOP

感謝版主的解答,依版主的程式碼 key in 試試看~~若有問題,再煩麻版主再給予解答指教~~謝謝~~
50 字節以內
不支持自定義 Discuz! 代碼

TOP

請問版主,依照程式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

回復 11# dsbleed


    Shape_Zoom是要輸入巨集名稱
.OnAction = "Shape_Zoom"
改成
.OnAction = "Macro1"

且必須按圖片驅動程式
否則caller會傳回錯誤
學海無涯_不恥下問

TOP

        靜思自在 : 話多不如話少,話少不如話好。
返回列表 上一主題