帖子: 95
主題: 29
精華: 0
積分: 150
點名: 0
作業系統: windows2003
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: Kaoshiung
註冊時間: 2010-11-5
最後登錄: 2018-2-8

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-2-21 15:17 | 只看該作者

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

[版主管理留言]

Hsieh(2011-2-21 15:24): 檔案損壞請重新上傳

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

更新文件 :

1.zip (309.6 KB)

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

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

16^#

發表於 2014-6-23 06:43 | 只看該作者

回復 15# ymaychen
正常沒問題的!

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

ymaychen

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
註冊時間: 2014-6-16
最後登錄: 2014-6-22

15^#

發表於 2014-6-22 17:46 | 只看該作者

我照Key,但是執行起來還是有問題
只有寬度會變化,但是高度都不變
到底是那裡出問題呢?
請各位幫個忙Debug,感謝!

Error-1004.jpg (11.75 KB)

module.jpg (21.25 KB)

workbook.jpg (18.08 KB)

Book1.zip (13.2 KB)

TOP

shakeass

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 3
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2013-1-31
最後登錄: 2018-12-5

14^#

發表於 2013-2-7 11:55 | 只看該作者

回復 13# GBKEE

請教各位先進
如果想要讓此sheet 中的所有圖片皆有放大效果，可能有上千張，VBA碼該如何修改，感謝 !!

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

13^#

發表於 2011-5-6 09:10 | 只看該作者

將備註格式填滿效果改為所需要的圖片，再將備註拉至所需要的大小，之後只要滑鼠停留在該儲存格，即可出現圖片。
這方式不錯

TOP

JOYARK

中學生 Rank: 2

帖子: 6
主題: 4
精華: 0
積分: 52
點名: 0
作業系統: WIN7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-5-6
最後登錄: 2024-10-24

12^#

發表於 2011-5-6 03:24 | 只看該作者

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

JOYARK

TOP

dsbleed

小學生 Rank: 1

帖子: 6
主題: 0
精華: 0
積分: 30
點名: 0
作業系統: winxp
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-2-21
最後登錄: 2011-4-20

11^#

發表於 2011-2-25 19:03 | 只看該作者

感謝版主的解答，程式ＯＫ～～謝謝～

50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2011-2-25 14:23 | 只看該作者

回復 11# dsbleed

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

且必須按圖片驅動程式
否則caller會傳回錯誤

學海無涯_不恥下問

TOP

dsbleed

小學生 Rank: 1

帖子: 6
主題: 0
精華: 0
積分: 30
點名: 0
作業系統: winxp
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-2-21
最後登錄: 2011-4-20

9^#

發表於 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

小學生 Rank: 1

帖子: 6
主題: 0
精華: 0
積分: 30
點名: 0
作業系統: winxp
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-2-21
最後登錄: 2011-4-20

8^#

發表於 2011-2-24 22:42 | 只看該作者

感謝版主的解答,依版主的程式碼 key in 試試看~~若有問題,再煩麻版主再給予解答指教~~謝謝~~

50 字節以內
不支持自定義 Discuz! 代碼

TOP