Gleiche Problem

Hallo Christian,

danke für deine Frage im Outlook.com Forum.

- wo tritt das Problem auf? Unter outlook.live.com oder Im Outlook Client?

- welchen Schritten folgst du genau?

- bekommst du Fehlermeldungen? Wen ja, stelle uns einen Screenshot bereit.

Wir freuen uns auf deine Rückmeldung.

Gruss,

Eugenia

Guten Morgen,
<br />Kann das Verhalten in OWA( outlook web App) reproduziert werden?
<br />Wenn ich Dich richtig verstehe ist nur ein User betroffen?
<br />Und was wurde schon versucht um das Flackern zu beheben?
<br />Kann der User auf einem Rechner /RDP anmelden wo es für ander User geht?
<br />Freue mich auf Deine Rückmeldung
<br />Mit freundlichem Gruß
<br />Wolf Fabian Spohr
<br />Microsoft office 365 Business Support
<br />

Ich habe das gleiche Problem. Bei mir sind aber zusätzlich auch noch Excel und Word vom gleichen Problem betroffen.

Hallo,

ich hab das gleiche Problem. Ich habe jetzt überlegt ev. auf Exchange umzusteigen. Habe ich aber dann das gleich Problem?

Danke

Naja, von Haus aus schon, aber man kann sich mit einem Makro etwas helfen. Allerdings ist das je nachdem wie Dein XY-Diagramm aussieht von mehr oder weniger Erfolg gekrönt.

Klick mal mit links auf die Zeichnungsfläche und schieb die ein bißchen, dann siehst Du das Du 2 gestrichelte Rahmen um die eigentliche Fläche auf der die XY-Punkte erscheinen. Und genau da ist das Problem, an diese "internen" Koordinaten kommen wir nicht
dran.

Wenn Du das Makro unten ausgeführt hast und es immer noch "krumm" aussieht, dann zuerst einfach nochmal ausführen.

Sieht es immer noch krumm aus, dann schieb die Zeichnugsfläche nach links oben soweit es geht und nochmal ausführen.

Sieht es immer noch krumm aus, dann mach die Zeichnugsfläche kleiner und nochmal ausführen.

Sieht es immer noch krumm aus, dann lade die Datei (möglicherweise mit anonymisierten Daten) auf einen Online-Datei-Hoster wie www.dropbox.com hoch und veröffentliche den Download-Link hier.

Ein Makro zur Anonymisierung von Daten in ausgewählten Zellen kann hier heruntergeladen werden:

https://www.dropbox.com/s/rkfxuh85j5wyj9y/modAnonymize.bas?dl=1

EDIT: Ich hab mir das nochmal genauer angeschaut, bitte den Code unten nochmals kopieren. Das sollte besser funktionieren.

Andreas.

Sub SquareActiveChartPlotAreaAxis()

  'Squares the plot area of the active chart based on the axis size

  Dim XSize As Single, YSize As Single

  If ActiveChart Is Nothing Then

    MsgBox "Select a chart and try again."

    Exit Sub

  End If

  With ActiveChart

    With .Axes(xlValue)

      YSize = (.MaximumScale - .MinimumScale)

    End With

    With .Axes(xlCategory)

      On Error Resume Next

      XSize = (.MaximumScale - .MinimumScale)

      XSize = UBound(.CategoryNames)

      On Error GoTo 0

    End With

  End With

  ScalePlotArea ActiveChart, XSize, YSize

End Sub

Private Sub ScalePlotArea(ByVal C As Chart, ByVal XSize As Single, ByVal YSize As Single)

  Const EPS As Single = 0.1

  Dim iw As Single, ih As Single, nw As Single, nh As Single, w As Single, h As Single

  Dim i As Long

  With C.PlotArea

    Do

      ih = C.Axes(xlValue).Height

      iw = C.Axes(xlCategory).Width

      w = .Width

      h = .Height

      If ih > iw Then

        nh = ih

        nw = nh / (YSize / XSize)

      Else

        nw = iw

        nh = nw / (XSize / YSize)

      End If

      If nh > ih Then

        nh = ih

        nw = nh / (YSize / XSize)

      ElseIf nw > iw Then

        nw = iw

        nh = nw / (XSize / YSize)

      End If

      .Width = .Width - iw + nw

      .Height = .Height - ih + nh

      DoEvents

      i = i + 1

    Loop Until (i = 20) Or (Round(w, 3) = Round(.Width, 3) And Round(h, 3) = Round(.Height, 3))

  End With

End Sub