Grafik verschiebt sich

27/04/2009 - 08:42 von Peter Huber | Report spam
Hallo NG

Ich habe in einer grossen Excel-Arbeitsmappe (Excel 2007
Kompatibilitàtsmodus) folgendes Problem:

In jeder Tabelle wird in der zweiten Zeile in der Spalte des rechten Randes
des aktiven Bereichs eine Grafik platziert. Nun kommt es immer wieder vor
(völlig unabsehbar), dass sich diese Grafik nach rechts oder lins verschiebt
und sich ganz an einem anderen Ort als vorher definiert befindet. Die
Spaltenbreiten wurden dabei nicht veràndert. Die Einstellungen der Grafiken
sind trotzdem auf "von Zellposition und Zellgrösse abhàngig" definiert.
Manchmal, aber nicht immer, wurde auch das Phànomen festgestellt, bei
verschobener Grafik sich diese in der Seitenansicht wieder an der
urspünglichen Stelle befindet! Dabei ist die Skalierung auf automatisch
eingestellt. Die Arbeitsmappe ist mit sehr viele VBA-Code ausgestattet
(aauch beim Start sowie Aktivieren der Tabellenblàtter. Allerdings werden
dort nur Einstellungen betr. Sichtbarkeit und Schutz eingestellt.

Hat jemand auch bereits mal solche Phànomene festgestellt und weiss evtl.
sogar einen Tipp für die Abhilfe?

Danke und Gruss
Peter
 

Lesen sie die antworten

#1 Andreas Killer
27/04/2009 - 09:12 | Warnen spam
On 27 Apr., 08:42, "Peter Huber" wrote:

Hat jemand auch bereits mal solche Phànomene festgestellt und weiss evtl.


Mangels XL2007 konnte ich das noch nicht feststellen. ;-)))

sogar einen Tipp für die Abhilfe?


Da Du ja schon div. Makro's laufen hast könntest Du das Bild einfach
an die richtige Stelle schieben!?!

Andreas.

Private Sub Worksheet_Activate()
Dim S As Shape
'Suche nach dem Bild
For Each S In Shapes
If InStr(S.Name, "Picture") = 1 Then Exit For
Next
'Region bestimmen
With Range("B2").CurrentRegion
'Grafik an den Rand schieben
S.Left = .Left + .Width
S.Top = .Top
End With
End Sub

Ähnliche fragen