Ich habe ein Problem mit einem Symbol in Excel.
Laut einem ehemaligen Mitarbeiter sind Bilder hinterlegt, meint mein Vorgesetzter.
Verstehe es allerdings nicht da der Inhalt leer ist.
Der hat das Problem damals gelöst, allerdings ist es (fragt mich nicht wie) wieder aufgetreten.
Markiere ich alle Zellen und kopiere Sie in eine neue Mappe tritt das Problem nicht auf.
Man kann das Symbol weder anklicken noch sonstiges...
markiere mal einen etwas größeren Bereich um das Symbol herum und drücke F5. Hier zu Inhalte und dann aktiviere links unten Objekte. OK. Was bekommst du für eine Meldung?
Gruß Günter Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen. angebl. von Georg Christoph Lichtenberg (1742-1799)
18.10.2019, 08:10 (Dieser Beitrag wurde zuletzt bearbeitet: 18.10.2019, 08:10 von chris-ka.)
Hallo!
Anbei ein Makro was ggf. helfen könnte,
Das Makro löscht alles an Objekten wie
Bilder, Diagramme, ActivexSteuerlemente, Formulare, usw...
gehe wie folgt vor:
1. erstelle eine KOPIE deiner Mappe
2. drücke in der Kopie deiner Mappe die Tastenkombination Alt+F11
3. klicke in der Menüleiste auf Einfügen -> Modul
4. kopiere den hier eingestellten Code in dieses Modul
5. schließe das Fenster
6. drücke Alt+F8
7. führe das Makro „remove_all_objects“ aus
8. speichere die Datei ohne Makros ab und kontrolliere das Ergebnis.
Code:
Option Explicit
Sub remove_all_objects()
Dim wb As Workbook
Dim sh As Worksheet
Dim myshape As Shape
Set wb = ActiveWorkbook
For Each sh In wb.Worksheets
For Each myshape In sh.Shapes
myshape.Delete
Next
Next
Set myshape = Nothing
Set sh = Nothing
Set wb = Nothing
End Sub
oder diesen Code der löscht nur im aktuellen Blatt in einem bestimmten Bereich alle Objects
Code:
Option Explicit
Sub remove_all_objects()
Dim myshape As Shape
Dim rng As Range
Set rng = Range("A1:F100") 'anpassen wo gelöscht werden sollte
For Each myshape In ActiveSheet.Shapes
If Not Intersect(myshape.TopLeftCell, rng) Is Nothing Then
myshape.Delete
End If
Next
Set myshape = Nothing
End Sub