[算表] 點擊 顯示/隱藏 圖表

看板Office作者 (芭樂熊)時間13年前 (2011/01/10 23:36), 編輯推噓3(3推 0噓 14→)
留言17則, 2人參與, 最新討論串1/1
軟體:excel 版本:2003 想要針對一份報表製作圖表 但平常是隱藏起來的 等想要看圖表時 只要點個物件就能顯示出來 有點像是巴哈姆特的快選單那樣 請問有辦法做到嗎？ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 180.218.64.4
推
01/11 17:54, , 1F
工具/選項/檢視物件 ⊙全部顯示 ⊙僅顯.. ⊙全部隱藏
01/11 17:54, 1F
→
01/11 17:55, , 2F
有三種選擇，不過每次都要去工具點選較麻煩就是了，所以你想
01/11 17:55, 2F
→
01/11 17:55, , 3F
要的這個功能需要靠vba程式碼來達成
01/11 17:55, 3F
推
01/11 17:58, , 4F
http://goo.gl/myEy8 參考看看
01/11 17:58, 4F
→
01/11 17:58, , 5F
還有一種不算方法的方法...用圖層，蓋過去切換顯示...
01/11 17:58, 5F
→
01/12 09:15, , 6F
謝謝abian兄的範例 只是在參考範例時
01/12 09:15, 6F
→
01/12 09:16, , 7F
當我要開啟VBA編輯器 會顯示 載入DLL時發生錯誤
01/12 09:16, 7F
推
01/12 14:59, , 8F
@@ 我是存成2003的，不知道為什麼會有這個錯誤 0rz
01/12 14:59, 8F
→
01/12 15:00, , 9F
插入Activex控制項-核取方塊 右鍵 檢視原始碼
01/12 15:00, 9F
→
01/12 15:00, , 10F
Private Sub CheckBox1_Click()
01/12 15:00, 10F
→
01/12 15:01, , 11F
If CheckBox1.Value = False Then
01/12 15:01, 11F
→
01/12 15:01, , 12F
ChartObjects("圖表 1").Visible = False
01/12 15:01, 12F
→
01/12 15:01, , 13F
Else
01/12 15:01, 13F
→
01/12 15:01, , 14F
ChartObjects("圖表 1").Visible = True
01/12 15:01, 14F
→
01/12 15:01, , 15F
End If
01/12 15:01, 15F
→
01/12 15:02, , 16F
End Sub
01/12 15:02, 16F
→
01/13 10:38, , 17F
成功了! 謝謝A大 ^^
01/13 10:38, 17F
‣ 更多 guavabear 的文章
文章代碼(AID): #1DAoThsf (Office)