quellcode
07.08.2006 09:36:23
Christopher
ersteinmal der code:
' es gibt nur eine Page, deshalb Nummer=0
myPageNumber = 1
shapeCount = ActiveDocument.Pages(myPageNumber).Shapes.Count
propkWert = "Prop.kWert"
prophydrDurchmesser = "Prop.hydrDurchmesser"
' laufe über alle Shapes
For shapeCounter = 1 To shapeCount
' prüfe, ob Shape Benutzerdwefinierte Eigenschaften besitzt
If ActiveDocument.Pages(myPageNumber).Shapes(shapeCounter).SectionExists(visSectionProp, _
True) = True _
Then
Set myShape = ActiveDocument.Pages(myPageNumber).Shapes(shapeCounter)
If myShape.CellExists(propkWert, True) = True _
Then
' setze k-Wert in Shape als Text
' myShape.Text = "k-Wert = " & myShape.Cells(propkWert)
' berechne k-Wert für Shape
kWert = myShape.Cells(propkWert)
dichte = Dichte_rF(Temperatur1.Value, Luftfeuchte1.Value, Luftdruck.Value)
rohrinnend = myShape.Cells("Prop.hydrDurchmesser").result("mm")
Rohrinnendurchmesser = myShape.Cells("Prop.hydrDurchmesser").result("mm")
lambdal = lambda(kWert, rohrinnend, Volumenstrom.Value, Temperatur1.Value, dichte)
Rohrdruckgefällel = rohrdruckgefälle(Volumenstrom, rohrinnend, lambdal, dichte)
rohrlaenge = myShape.Cells("prop.DuctLength").result("mm")
Druckverlust1 = druckverlust(Rohrdruckgefällel, rohrlaenge)
result = Druckverlust1
End If
End If
Next
MsgBox result
so nun die frage: ich lese mit diesem code benutzerdefinierte eigenschaften von shapes aus. auf meinem zeichenblatt befinden sich drei shapes mit diesen eigenschaften und alle werden auch durchlaufen und erkannt. jedoch zeigt mir die msgbox nur das ergebnis des letzten shapes und nicht die summe aller eigenschaften. hat jemand ne idee. mfg christopher