如何使用从Addin导入的用户定义types？

在addin.xlam中我有：

Type Quantity i As Integer end type Sub show_quant(q as Quantiy) MsgBox(qi) end sub 

在一个开放的工作簿中，我这样做：

 Sub load_addin() Dim AI As Excel.AddIn Set AI = Application.AddIns.Add(Filename:="add_in.xlam") AI.Installed = True Dim q As Quantity show_quant(q) End Sub 

这不起作用。 Excel抱怨用户定义的types尚未定义。

那么如何声明一个在插件中定义的types的variables呢？