Office: (Office 2016) Eine Idee in VBA umsetzen ?

Hallo Zusammen,

eventuell kann mir jemand mein Problem wofür ich eine theoretische Lösung gefunden habe, im VBA umsetzen ?

Beschreibung:

Zelle A1 hat keinen Blattschutz .
Ich kopiere ein Bild in Zelle A1
Der Blattschutz soll jetzt in Zelle A1 aktiviert werden ohne Objekt Bearbeitung.
In Zelle B1 soll kein Blattschutz sein .
Ich kopiere in Zelle B1 ein Bild und es wird wieder der Blattschutz gesetzt ohne Objekt bearbeitung .
u.s.w

Und das auf das ganze Blatt anwendbar.

Würde mir das jemand in VBA umsetzen ? Bin gerne bereit einen Obolus dafür zu bezahlen.

Danke dragonxxl

 

Moin!
Nur weil Dir die Antworten im anderen Forum nicht gefallen haben, ändert sich doch nichts an den bisher getätigten Aussagen.
Ein Bild / Shape / Objekt ist niemals Bestandteil einer Zelle, sondern schmiegt sich dezent scheinbar (nicht anscheinend, siehe Zwiebelfisch) über diese.

 

Guten Morgen.

Das ein Bild kein Bestandteil einer Zelle ist habe ich verstanden. Wenn ich ein Bild in die Zelle einfüge,dann die Zelle Sperre ,kann man das Bild nicht mehr löschen.So solle es auch für mein Projekt sein. Was ich nicht so ganz verstehe, wenn ich den Blattschutz aktiviere kann ich zwar in andere Zellen Text einfügen aber kein Bild. Obwohl ich die Zellen so formatiert habe das der Blattschutz in diesen nicht aktiviert ist.

Gibt es da eine Einstellungsmöglichkeit ?

Danke dragonxxl

 

Guten Morgen.

Niemand eine Idee ?


Gruß dragonxxl

 

Hallo,

• Blattschutz heißt, dass ein ganzes Blatt geschützt ist, falls er aktiviert ist. Vor der Aktivierung des Blattschutzes kann man festlegen, welche Zellen davon betroffen sind.
• Ein Bild-Objekt wird stets in ein Blatt eingefügt, niemals in eine Zelle. Man kann zwar angeben, ob die Position/Größe des Bildes von der Größe/Position einer bestimmten Zelle abhängig (bzw. unabhängig) sein soll - das ist aber nur eine mögliche Größen/Lage-Angabe des Objektes innerhalb eines Blattes.
  .
• Dein Zitat Nr.1 steht somit im Widerspruch zu deinem Zitat Nr.2.
  Das Bild kann man deshalb nicht mehr löschen, weil der Blattschutz aktiv ist. Das hat mit einer bestimmten Zelle überhaupt nichts zu tun.
• Die Lösung des Problems in Zitat Nr.3 ergibt sich wohl aus dem vorhin von mir Gesagten.

 

Hallo.
Danke für Deine Antwort.

Also lege ich das Bild auf eine Zelle und nicht in eine Zelle. . Und wenn der Blattschutz aktiv ist kann man kein Bild oder Objekt ohne weiteres mehr auf das Blatt legen. Soweit habe ichs ?

Bin kein Excel Profi,sorry.


Wenn man eine Zelle mit der Maus anwählt, wird diese für diesen Zeitpunkt frei. Dann würde man das Objekt über der Zelle legen. Wird die Zelle darunter (noch ohne "Füllung") angewählt sollte die zuletzt "befüllte" und alle darüber gesperrt werden. Das ganze müsste nur für eine Spalte funktionieren.



Habe ein Makro aufgezeichnet . Doch komme einfach nicht weiter.

Sub Makro1()
'
' Makro1 Makro
'

'
ActiveSheet.Unprotect
ActiveSheet.Shapes.Range(Array("Graphic 2")).Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 135.75
Selection.ShapeRange.IncrementTop 119.25
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
End Sub



Danke und Gruß dragonxxl