Try replacing:
With Diagramm.Parent
               dblHoehe = .Height
with:
With Diagramm.Parent
               .Activate
               dblHoehe = .Height