如何自製 MetaFile



MetalFile ，就是副檔名 WMF 或 EMF 的向量圖檔，也就是在 Office 裏廣泛採用的美工圖庫圖案，有點荒謬的是 Office 天天在用 MetalFile，它的繪圖工具畫出來的圖也是 MetalFile，可就不提供把 Office 製作出來的圖存成 WMF 檔的功能。這在其他不會 VB 語言的當然是難事一樁，但你可以利用Office 繪圖工具把圖畫好，將全圖群組化後，按複製，再在 VB 中執行以下的語法，就可以得到獨立的 WMF 圖在 VB 裏應用。

Private Sub Command1_Click()
If Clipboard.GetFormat(vbCFMetafile) Then
Set Picture1.Picture = Clipboard.GetData
SavePicture Picture1.Picture, "c:\test\bin.wmf"
End If
End Sub