2009年10月10日 星期六

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

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

2009-10-08_1431493.0 版 TagBar 有顏色標示,
但是和 1.x 版的使用習慣無法銜接, 因為
不能反映標籤狀態, 顯示數字干擾視線
2009-02-16_220704
1.x 版 TagBar 有顏色標示,
可以反映目前郵件的標籤狀態 (橘色底色) 使用上很方便, 同時可以選擇是否顯示按鈕數字, 視覺上較清爽

.

讓 Taglocity 3.0 Tag Bar 變清爽

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

  • 建立巨集, 以及將巨集加到工具列的方法, 請參考 『相關訊息』的 VBA 巨集 的說明
  • 預設會移除 按鈕文字開頭的 &2. 或是 12. 等數字, 可以改變 "&123456789"". " 這兩個參數來調整
  • 決定是否保留標籤中的 [] ---- 再將 "[""]" 那兩行變成註解
  • 2009-10-09_160601 myIconSize 調整按鈕大小, 數字越小 (或負的) 按鈕會比較小, 反之則變大。
    如果不執行 .Width = w 這一行, 按鈕會變得很鬆
  • 2009-10-09_175652不執行 .BeginGroup = False 這一行,
    按鈕中間會有分隔線
  • 2009-10-09_175812_0 執行 .BeginGroup = False 這一行,
    按鈕中間就不會有分隔線

    最後的成果是不是和 Taglocity 1.x 一樣清爽了呢?
2009-02-16_220704

Taglocity 1.x

2009-10-08_143149
再比較一次
沒改造的 Taglocity 3.0 Tag Bar

 

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


.


0 意見:

發表您的回應

張貼留言