Makro Diagr. vergrößern, nun speichern unmöglich
10.11.2004 13:45:33
disch
habe aus Computerbild 21/2004 Seite 116 den Excel- Tipp "Diagramme aufspringen lassen" in meine Datei eingebaut:
Seither kann in keine neuen Daten mehr in dieser Datei abspeichern.
Auch wenn das makro deaktiviert ist.
Habe das makro nur auf einem Arbeitsblatt bei nur einem diagramm eingesetzt.
Alle anderen Arbeitsblätter und Diagramme sind unberührt.
Habe wohl noch Excel 2000, der Tipp war für 2002. Hat es vielleicht damit zu tun?
Wie kann ich das makro wieder entfernern ?
Liegt es überhaupt daran ?
Die mir bekannten Löschversuche scheiterten wieder beim speichern.
Der Link zeigt den Problembericht !!
https://www.herber.de/bbs/user/13269.doc
Das Makro:
Option Explicit
Dim Breite As Integer, Höhe As Integer
Dim Auswahl As Boolean, Objekt As Shape
Sub Vergrößern()
Set Objekt = _
ActiveSheet.Shapes(Application.Caller)
With Objekt
If Not Auswahl Then
Breite = .Width
Höhe = .Height
.Width = 420
.Height = 300
.ZOrder msoBringForward
Auswahl = True
Else
.Width = Breite
.Height = Höhe
.ZOrder msoSendBackward
Auswahl = False
End If
End With
End Sub
Danke im voraus
disch