Office: 6 Bilder in EXCEL einfügen

...... alles zurück ;-)
ja Wahnsinn, geht ja ;-)))))
halt ohne "seite schützen" aber nicht so schlimm
LOB hoch 3 meiner Hilfe ;-)

LG Thomes

 

Hi Thomas,

den Blattschutz kann man vorher aufheben und anschließend wieder setzen
Code:

 

Hallo Karin,
habe Dir noch eine Nachricht gesendet.
Ist wohl untergegangen.
WOW, nur TOP .... geht fast alles
nur im geschützten Modus das geht leider nicht.
aber sonst alles perfekt ;-)

Anbei geänderten VBA, in "rot", die zeile hat irgendwie gefehlt, deshalb keine Funktion.
................ ActiveSheet.Pictures.Insert .SelectedItems(bytBild)
With ActiveSheet.Pictures(ActiveSheet.Pictures.Count)
.Top = Range(arrBereiche(bytBild - 1)).Top
.Left = Range(arrBereiche(bytBild - 1)).Left
.Width = Range(arrBereiche(bytBild - 1)).Width
.Height = Range(arrBereiche(bytBild - 1)).Height
End With
Next bytBild..................

Muß noch mal ein Lob aussprechen, Hut ab, suuupppiiiieeeee
LG Thomes

 

Hi Thomes,

und WAS geht im geschützten "Modus" nicht?

Deine rot geschrieben Zeile hatte ich bewusst weggelassen, damit sich - wenn das Bild nicht genau die Maße der Breite und Höhe des Zellbereichs hat - zumindest an die Breite anpasst.

 

Hallo Karin, hat sich alles, aber wirklich alles erledigt, genaus so wollt ich es haben, wie es sit, einfach wunderbar.
Keine Probleme mer, alles funktioniert ;-)

Super, du bist spitze ;-)))))))))))))
LG Thomes

 

Hallo,

auf der Suche nach einem passenden Code, habe ich den hier gefunden. Der passt genau für meine Bedürfnisse.
Allerdings werden die Bilder nicht in die Excel-Datei eingebettet sondern nur als Link. Die Bilder liegen nicht auf dem PC sondern auf einem Server.
Wenn die Datei auf einem anderen Rechner geöffnet wird, ohne Zugriff auf den Server, werden die Bilder nicht angezeigt.

Verwendete Excel-Version: 2010

Kann man das Problem ändern?

Danke im vorraus.

Gruß
Andreas

 

Du musst nur im Array die anderen 3 Bereiche ergänzen. Evtl. musst du auch den Laufwerksbuchstaben im Code ändern.