#眉標=Office開發
#副標=Office 2007開發系列（4）
#大標=Excel物件模型與客製化功能
#作者=文／圖	沈炳宏
#引言=



==<box>===========
程式1
Imports System
Imports System.Runtime.InteropServices
Imports Microsoft.Win32
<ClassInterface(ClassInterfaceType.AutoDual), 
ComVisible(True)> _
Public Class Class1
  Public Function ConvertF(
ByVal temp As Double ) As Double
    Dim result As Double = 0
	result = temp * 9 / 5 + 32    
    Return result
  End Function
  Public Function ConvertC(
ByVal temp As Double ) As Double
    Dim result As Double = 0
	result = (temp – 32) * 5 / 9
    Return result
  End Function
  <ComRegisterFunctionAttribute()> _
  Public Shared Sub RegisterFunction(
ByVal type As Type)
    Registry.ClassesRoot.CreateSubKey(
GetSubKeyName(type))
  End Sub
  <ComUnregisterFunctionAttribute()> _
  Public Shared Sub UnregisterFunction(
ByVal type As Type)
    Registry.ClassesRoot.DeleteSubKey(
GetSubKeyName(type), False)
  End Sub
  Private Shared Function GetSubKeyName(
ByVal type As Type) _
    As String
    Dim s As New System.Text.StringBuilder()
    s.Append("CLSID\{")
    s.Append(type.GUID.ToString().ToUpper())
    s.Append("}\Programmable")
    Return s.ToString()
  End Function
End Class
==<end>==============