12 从Excel建立一个OLEpdi

之前我们都是在 外部PB里创建pdi图，如果可以在Excel里建立一个趋势图就更好了。

这个需要用到OLE对象。

安装好PI之后，会在Excel里加载一个pb的Ole对象，应该是叫Pi display Documnt之类

我们就来用它实现这个理想

 For Each objX In Worksheets(1).OLEObjects
        If objX.progID = "PIDisplayType" Then
            PIObjExists = True
            Exit For
        Else
            PIObjExists = False
        End If
    Next objX

 If PIObjExists = False Then
        Set objX = Worksheets(1).OLEObjects.Add("PIDisplayType")
    End If
    
    Set myobj = objX.Object
     
    Set tndZ = myobj.Symbols.Add(pbSymbolTrend)

这样就建立了一个新的 趋势图