Thema Datum  Von Nutzer Rating
Antwort
15.12.2024 09:45:49 Sonja
NotSolved
15.12.2024 10:58:01 ralf_b
NotSolved
15.12.2024 19:06:39 volti
NotSolved
Blau Einfügen von Grafiken verhinertn
 16.12.2024 19:00:07 xlKing
NotSolved
01.01.2025 22:08:27 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
16.12.2024 19:00:07		 Views:
41		 Rating:
     
Antwort:
  Ja
Thema:
Einfügen von Grafiken verhinertn

Warum so kompliziert?

Das Einfügen von Grafiken lässt sich zwar nicht verhindern. Wohl aber das Abspeichern. Einfach im BeforeSave-Ereignis entweder alle Grafiken oder zumindest alle die nicht einen bestimmten Namen oder Typ haben löschen. Der Code kommt in das Modul "DieseArbeitsmappe"

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  For Each sht In Sheets
    If sht.Shapes.Count > 0 Then
      fnd = True
      For Each shp In sht.Shapes
        shp.Delete
      Next shp
    End If
  Next sht
  If fnd Then MsgBox "Grafiken gefunden. Bitte keine Grafiken einfügen. Grafiken werden gelöscht."
End Sub

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.12.2024 09:45:49 Sonja
NotSolved
15.12.2024 10:58:01 ralf_b
NotSolved
15.12.2024 19:06:39 volti
NotSolved
Blau Einfügen von Grafiken verhinertn
 16.12.2024 19:00:07 xlKing
NotSolved
01.01.2025 22:08:27 Gast7777
NotSolved