typename(變量名）

舉例：
'首先在 工程中引用Excel
Private Sub Command1_Click()
Dim objExcel As Excel.Application
Dim objWorkBook As Excel.Workbook

Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Add()
objExcel.Visible = True

'設(shè)置活動工作表
Dim objSheet As Excel.Worksheet
Set objSheet = objExcel.Worksheets("sheet1")
objSheet.Cells(1, 1) = "mather" '對單元格賦值
Print TypeName(objSheet), TypeName(objExcel)

'將會打印 WorkSheet 和Application

objWorkBook.SaveAs "D:\aa.xls" '保存
objWorkBook.Close
objExcel.Quit
Set objSheet = Nothing
Set objWorkBook = Nothing
Set objExcel = Nothing
End Sub

Word VBA 中的對象庫比較龐大，建議使用時通過聯(lián)機(jī)的開發(fā)人員幫助文檔來獲取相關(guān)對象的體系結(jié)構(gòu)（對象、成員、屬性、方法）：

第一種：是Shape對象（Word中自帶的“自選圖形”）
第二種：是InlineShape對象(嵌入式圖片，也就是所謂的通過點擊菜單欄中的“插入”－＞“圖片”－＞“來自文件”）
－－－－－－－－－－－－－－－－－－－
如何判斷word文檔中是否存在一張圖片呢？這個問題。
我來解答：判斷word文檔中是否存在一張圖片，可以通過看一看word文檔中的inlineshape對象的數(shù)量來判斷。
舉例：
Dim doc As Document '當(dāng)前打開的文檔對象Document
Dim MyApp As Word.Application 'Word應(yīng)用程序?qū)ο?br/>Dim MyFileName As String '當(dāng)前打開的文件名
MyFileName="c;\aaa.doc" '此處可以改成你的文件名字
Set MyApp = CreateObject("Word.Application")
Set doc = MyApp.Documents.Open(MyFileName)

If doc.InlineShapes.Count <> 0 then
msgbox "有嵌入式圖片存在!"
Else
msgbox "沒有嵌入式圖片存在!"
End if
-------------------------------------------------------
如果你非要想知道，用戶到底是不是插入了你要求的圖片的話，你要必須要再他進(jìn)行插入圖片操作時進(jìn)行控制，也就是說，你必須把用戶所插入的圖片的（絕對地址）或者（圖片名字）添加到用戶所插入圖片的“可選文字”中記錄下來。

MydocInlineShapes.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)
FileName String 類型，必需。指定要創(chuàng)建對象的文件名。如果忽略本參數(shù)，則使用當(dāng)前文件夾。

LinkToFile Variant 類型，可選。如果此屬性設(shè)置為 True，則將 OLE 對象與創(chuàng)建該對象的文件鏈接。如果設(shè)置為 False，則令該 OLE 對象成為該文件的獨立副本。默認(rèn)值為 False。

SaveWithDocument Variant 類型，可選。如果此屬性為 True，則將鏈接的圖片與文檔一起保存。默認(rèn)值為 False。

Range Variant 類型，可選。指定一個區(qū)域，OLE 對象放置在該區(qū)域的文字中。如果該區(qū)域未折疊，那么圖片將覆蓋該區(qū)域。如果忽略此參數(shù)，則自動放置圖片。

ActiveDocument.Shapes.AddPicture "C:\stone.bmp",True, True,MyRange

ActiveDocument.InlineShapes(ID).AlternativeText = App.Path & "\temp" & shapeII & ".bmp" '添加“可選文字”