改造 Taglocity 3.0 Tag Bar (1) ---- 讓 按鈕文字 變清爽

Taglocity 改版到 3.0 之後, Tag Bar 又變回類似 1.x 的模樣, 只是還是有一些美中不足。還好可以用 VBA 巨集來解決 ……

3.0 版 TagBar 有顏色標示, 但是和 1.x 版的使用習慣無法銜接, 因為 不能反映標籤狀態, 顯示數字干擾視線

1.x 版 TagBar 有顏色標示, 可以反映目前郵件的標籤狀態 (橘色底色) 使用上很方便, 同時可以選擇是否顯示按鈕數字, 視覺上較清爽

.

讓 Taglocity 3.0 Tag Bar 變清爽

底下先解決『顯示數字干擾視線 』的部份,

• 建立巨集, 以及將巨集加到工具列的方法, 請參考 『相關訊息』的 VBA 巨集 的說明
• 預設會移除 按鈕文字開頭的 &2. 或是 12. 等數字, 可以改變 "&123456789" 和 ". " 這兩個參數來調整
• 決定是否保留標籤中的 [ 和 ] ---- 再將 "[" 和 "]" 那兩行變成註解

myIconSize 調整按鈕大小, 數字越小 (或負的) 按鈕會比較小, 反之則變大。 如果不執行 .Width = w 這一行, 按鈕會變得很鬆

不執行 .BeginGroup = False 這一行, 按鈕中間會有分隔線

執行 .BeginGroup = False 這一行, 按鈕中間就不會有分隔線 最後的成果是不是和 Taglocity 1.x 一樣清爽了呢?

Taglocity 1.x

再比較一次 沒改造的 Taglocity 3.0 Tag Bar

 

view plaincopy to clipboardprint?

1. Sub hackTagBar()  
2.     myIconSize = -20        ' 可選用 -20 ~ 20 左右的數字  
3.     On Error GoTo ErrorHandler  
4.     Set myTagBar = Application.ActiveExplorer.CommandBars.Item("Taglocity 3.0 Tag Bar")  
5.     For i = 1 To myTagBar.Controls.Count  
6.         With myTagBar.Controls.Item(i)  
7.             .BeginGroup = False     ' 非必需  
8.             btnTag = .Caption  
9.             c = Left(btnTag, 1)  
10.             If InStr(1, "&123456789", c) > 0 Then       ' 可自訂  
11.                 p = InStr(1, btnTag, ". ")              ' 可自訂  
12.                 If (p > 0) And (p <= 3) Then btnTag = Mid(btnTag, p + 2, 100)  
13.             End If  
14.             If .DescriptionText = "" Then .DescriptionText = btnTag     ' 非必需, 下一階段伏筆  
15.             btnTag = Replace(btnTag, "[", "")       ' 非必需  
16.             btnTag = Replace(btnTag, "]", "")       ' 非必需  
17.             If .Caption <> btnTag Then  
18.                 w = (.Width - myIconSize) * Len(btnTag) / Len(.Caption) + myIconSize  
19.                 .Caption = btnTag  
20.                 .Width = w        ' 非必需   
21.             End If  
22.         End With  
23.     Next  
24. ErrorHandler:  
25. '    MsgBox "改造 Tag Bar 發生錯誤"     ' 非必需  
26. End Sub  

Sub hackTagBar()
    myIconSize = -20        ' 可選用 -20 ~ 20 左右的數字
    On Error GoTo ErrorHandler
    Set myTagBar = Application.ActiveExplorer.CommandBars.Item("Taglocity 3.0 Tag Bar")
    For i = 1 To myTagBar.Controls.Count
        With myTagBar.Controls.Item(i)
            .BeginGroup = False     ' 非必需
            btnTag = .Caption
            c = Left(btnTag, 1)
            If InStr(1, "&123456789", c) > 0 Then       ' 可自訂
                p = InStr(1, btnTag, ". ")              ' 可自訂
                If (p > 0) And (p <= 3) Then btnTag = Mid(btnTag, p + 2, 100)
            End If
            If .DescriptionText = "" Then .DescriptionText = btnTag     ' 非必需, 下一階段伏筆
            btnTag = Replace(btnTag, "[", "")       ' 非必需
            btnTag = Replace(btnTag, "]", "")       ' 非必需
            If .Caption <> btnTag Then
                w = (.Width - myIconSize) * Len(btnTag) / Len(.Caption) + myIconSize
                .Caption = btnTag
                .Width = w        ' 非必需 
            End If
        End With
    Next
ErrorHandler:
'    MsgBox "改造 Tag Bar 發生錯誤"     ' 非必需
End Sub

.