- 帖子
- 586
- 主題
- 123
- 精華
- 0
- 積分
- 763
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-16
- 最後登錄
- 2017-3-14
 
|
本帖最後由 freeffly 於 2012-2-22 17:07 編輯
Option Explicit
Private WithEvents GB_CbE As CommandBarEvents
Private WithEvents Big5_CbE As CommandBarEvents
________________________________________
Private Sub Workbook_Open()
CreateVBEMenu
End Sub
________________________________________
Private Sub Workbook_AddinInstall()
Dim AI As AddIn, hWnd As Long
On Error Resume Next
hWnd = Application.VBE.MainWindow.hWnd
If Err.Number = 1004 Then
MsgBox "您的安全性設定不允許您執行此程序." _
& vbCrLf & vbCrLf & "請更改安全性設定後重新執行:" _
& vbCrLf & vbCrLf & " 1. 點選 工具 - 巨集 - 安全性." _
& vbCrLf & " 2. 點選 '信任存取 Visual Basic 專案"
On Error Resume Next
For Each AI In Application.AddIns
If AI.Name = ThisWorkbook.Name Then
AI.Installed = False
ThisWorkbook.Close False
End If
Next AI
End If
End Sub
________________________________________
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.VBE.CommandBars("cmd_TCSC").Delete
Application.VBE.CommandBars(2).Left = 0
End Sub
________________________________________
Sub CreateVBEMenu()
Dim vcbr As CommandBar, vctl As CommandBarControl
'如果 cmd_TCSC存在的話,刪除它
On Error Resume Next
Application.VBE.CommandBars("cmd_TCSC").Delete
Set vcbr = Application.VBE.CommandBars.Add(Name:="cmd_TCSC", _
Position:=msoBarTop, temporary:=True)
'新增Button
vcbr.Visible = True
vcbr.RowIndex = Application.VBE.CommandBars(2).RowIndex
Set vctl = vcbr.Controls.Add(Type:=msoControlButton)
With vctl
ThisWorkbook.Sheets("icon").Shapes("TCSC").Copy
.PasteFace
.Style = msoButtonIcon
.TooltipText = "繁轉簡"
Set GB_CbE = Application.VBE.Events.CommandBarEvents(.Control)
End With
Set vctl = vcbr.Controls.Add(Type:=msoControlButton)
With vctl
ThisWorkbook.Sheets("icon").Shapes("SCTC").Copy
.PasteFace
.Style = msoButtonIcon
.TooltipText = "簡轉繁"
Set Big5_CbE = Application.VBE.Events.CommandBarEvents(.Control)
End With
End Sub
________________________________________
Private Sub GB_CbE_Click(ByVal CommandBarControl As Object, _
handled As Boolean, CancelDefault As Boolean)
Call BIG5_GB
End Sub
________________________________________
Private Sub Big5_CbE_Click(ByVal CommandBarControl As Object, _
handled As Boolean, CancelDefault As Boolean)
Call GB_BIG5
End Sub
這個是在某個網站上看到的
可以用來轉換簡體的VBA變成繁體
我直接貼到程式碼中
可是會出現問題
有人知道怎麼使用這個嗎?
資料來源網址
http://chijanzen.net/wp/?p=358 |
|
發表於 2010-7-24 19:15
| 
