Zaslal/a Palooo 10.5.2013 9:10
Ahojte experti,
Je nejak mozne nacitat linked data ktore nemaju pristup k zdroji???
pri msoChart sa mi to uz podarilo nacitat ale da sa to aj pre msolinkedOLEobject????
msoChart: ... kod je pisany pre powerpoint
For Each aShape In ActiveWindow.Selection.ShapeRange
Set myShape = aShape
Select Case myShape.Type
Case msoChart
ReDim c(myShape.Chart.SeriesCollection.Count, myShape.Chart.SeriesCollection(1).Points.Count)
For Each aName In myShape.Chart.SeriesCollection(1).XValues
c(0, y) = aName
y = y + 1
Next
y = 1
For Each aCollection In myShape.Chart.SeriesCollection
Set myCollection = aCollection
c(x, 0) = aCollection.Name
For Each aValues In myCollection.Values
c(x, y) = aValues
y = y + 1
Next
y = 1
x = x + 1
Next
Case Else
MsgBox ("Nepojde object je: " & myShape.LinkFormat.SourceFullName)
End Select
Next
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.