返回列表 上一主題 發帖

[發問] 請教:如何在使用activesheet後,再限制特定工作表不執行程式

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-1-14 09:45 | 只看該作者

[發問] 請教:如何在使用activesheet後,再限制特定工作表不執行程式

本帖最後由 GBKEE 於 2013-1-14 15:40 編輯

Dear :
小弟修正於各工作表上執行圖片放大縮小動作,因工作表數視載入檔案多少不一定,但因其有二頁工作表不需做其圖片放大縮小動作,不知要如何修正,請各位大大幫忙指引一下迷津,感恩!
  1. Private Sub Workbook_Open()
  2. Set dic = CreateObject("Scripting.Dictionary")
  3. Dim Sh As Shape
  4. Dim SHT As Worksheet
  5. Dim DaSht As String, CALSht As String
  6. DaSht = "DashBoard": CALSht = "CALS" ' 這二個工作表不做shape放大縮小動作

  8.     For Each SHT In Sheets
  9.         Do While SHT Is Nothing
  10.             If SHT.Name = DaSht Or SHT.Name = CALSht Then
  11.             Exit Do
  12.             Else
  13.                 For Each Sh In SHT.Shapes ' 連同註解的文字方塊或圖表也會被認為是shape,開檔案時會alert
  14.                 With Sh
  15.                     Sh.OnAction = "nn"
  16.                     dic(Sh.Name & "h") = Sh.Height
  17.                     dic(Sh.Name & "w") = Sh.Width
  18.                 End With
  19.                 Next
  20.             End If
  21.         Loop
  22.     Next
  23.    
  24. End Sub



  28. Sub nn()
  29. With ActiveSheet.Shapes(Application.Caller)
  30. '---變更為在自己的位置作放大縮小的動作
  31.     If .Height <> dic(.Name & "h") Then
  32.     .Height = dic(.Name & "h")
  33.     .Width = dic(.Name & "w")
  34.     Else
  35.     .Height = dic(.Name & "h") * 8
  36.     .Width = dic(.Name & "w") * 8
  37.     .ZOrder msoBringToFront
  38.     End If
  39. End With
  40. End Sub
複製代碼
Question_20130114.zip (94.89 KB)
收藏 分享

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
2#
發表於 2013-1-14 11:50 | 只看該作者
回復 1# cmo140497


    已自行解決了,感恩!

TOP

        靜思自在 : 不要隨心所欲，要隨心教育自己。
返回列表 上一主題