Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1940to1944
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1940to1944
1940to1944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild link in Bild wandeln

Bild link in Bild wandeln
10.08.2023 15:56:33
daniel
Hallo
ich habe in eine Exceldatei ein paa bilder eingefügt mit diesem VBA-Befehl:

ActiveSheet.Pictures.Insert(Pfad & Datei)

die Bilder sind aber nur als Link eingefügt, dh die Datei hat nur wenige KB und die Bilder müssen beim Öffnen erst aktualisiert werden.
wie kann man jetzt die Bilder in der Exceldatei in echte Bilde umwandeln, so dass die Datei an beliebige Personen verschickbar ist?

Gruß Daniel

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Bild link in Bild wandeln
10.08.2023 16:41:58
volti
Hallo Daniel,

versuche es mal mit AddPicture anstelle von Pictures.Insert...

Hier ein Beispiel.... 
Sub Test()

' Bild in aktueller Zelle einfügen und an diese anpassen

  Set oPic = ActiveSheet.Shapes.AddPicture(Filename:=Pfad & Datei, _

              LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _

              Left:=Selection.Left, Top:=Selection.Top, Width:=-1, Height:=-1)

  With oPic

        .LockAspectRatio = msoTrue

        .Height = .TopLeftCell.Height ' Höhe der Bild-Zelle

        .Placement = xlMoveAndSize

  End With

End Sub



Gruß

Karl-Heinz
Anzeige
Bild link in Bild wandeln
10.08.2023 16:52:24
daniel
Ja Super Danke, das was.

bleibt halt nur die Frage, geht sowas auch nachträglich, ohne dass man die Bilder neu einfügt?

Gruß Daniel
Bild link in Bild wandeln
10.08.2023 17:09:30
volti
Hi,

ich denke nicht, dass das mit einfachen Mitteln umgewandelt werden kann.
Man müsste die Links ja dann durch das Bild ersetzen, ein entsprechender VBA-Code ist sicher aufwändiger als es gleich neu zu machen.

Aber vielleicht hat ja noch jemand eine passende Idee dazu.

Gruß KH
Bild link in Bild wandeln
11.08.2023 15:21:20
Nepumuk
Hallo daniel,

so: 

Public Sub Beispiel1()

    Dim objShape As Shape

    Dim objWorksheet As Worksheet

    For Each objWorksheet In ThisWorkbook.Worksheets

        For Each objShape In objWorksheet.Shapes

            If objShape.Type = msoLinkedPicture Then

                Call objShape.CopyPicture(Appearance:=xlScreen, Format:=xlPicture)

                Call objWorksheet.Paste(Destination:=objShape.TopLeftCell, Link:=False)

                Call objShape.Delete

            End If

        Next

    Next

End Sub

Gruß
Nepumuk
Anzeige
Bild link in Bild wandeln
11.08.2023 19:08:25
daniel
Hi Nepumukt
ok kopieren und nochmal einfügen, aber auch per Makro
Danke.

kurze Frage, nach welcher Logik verwendest du CALL?
dh wann schreibst du Call vor den Befehl und wann nicht?

gruß Daniel
Bild link in Bild wandeln
11.08.2023 19:15:15
Nepumuk
Hallo daniel,

immer wenn es sich um eine Sub oder eine Function handelt von der ich keine Rückgabe erwarte.

Such mal im Objektkatalog nach CopyPicture für die Klasse Shape. Da findest du unten links das: 

Sub CopyPicture([Appearance], [Format])

    Element von Excel.Shape

Gruß
Nepumuk
Bild link in Bild wandeln
11.08.2023 19:21:58
daniel
ah ok
ich rufe nur selbstgeschriebene Makros mit Call auf.
und alles was originär VBA ist, ohne
Ansonsten steht mir zu oft "Call" am Anfang der Zeile, was es für mich schwerer macht, wenn ich im Code nach bestimmten Abschnitten suche, mit dem häufigen "Call" sieht alles gleich aus.
Gruß Daniel
Anzeige
Bild link in Bild wandeln
11.08.2023 19:27:52
Nepumuk
Hallo Daniel,

jeder wie es ihm gefällt. :-)

Gruß
Nepumuk
Bild link in Bild wandeln
11.08.2023 19:41:27
daniel
die Frage ist halt, ob das Call noch einen anderen Vorteil hat, der mir bisher noch nicht aufgefallen ist und ob es sinnvoll ist, auf deine Anwendungsweise umzuschwenken oder ob ich besser bei meiner bleibe.

203 Forumthreads zu ähnlichen Themen

Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
Anzeige
Bild in Zelle einfügen
ray

Hallo,
hallo, ich möchte in einer Zelle ein Bildanzeigen/einfügen. Es liegt aber vor allen Zellen.
Viele Grüße aus dem schneeweißen Hamburg
Ray
21.11.2008 08:25:00
Thread-ID: 1026601
9 Beiträge
Bilder aus dem Web in Excel2007 anzeigen
Thomas

Hallo Experten,
seit Stunden habe ich jetzt recherchiert und probiert, aber noch keine Lösung gefunden.
In Excel 2000 und 2003 konnte ich per VBA Bilder aus dem Internet direkt als Bild in einer Excel-Tabelle anzeigen lassen und so einen Katalog erzeugen:
Set image = ActiveSheet.Pic...
13.03.2009 18:43:51
Thread-ID: 1059977
11 Beiträge
Anzeige
Internetbild in Zelle anzeigen
stef@n

Hallo zusammen
bin auf der Suche nach einer Möglichkeit, ein Bild aus dem Internet in einer Zelle anzeigen zu lassen.
Ich habe es mit einem Hyperlink probiert z.b.
src="http: //www.google.de/intl/de_de/images/logo.gif" />
(Leerzeichen nach http: damit das Logo hier im Thre...
21.05.2009 15:50:09
Thread-ID: 1076569
9 Beiträge
Bilder aus Verzeichnis in Userform anzeigen
Rainer

Hallo,
jetzt hab ich nochmal eine Frage:
Gibt es eine Möglichkeit, Bilder nacheinander direkt aus einem Ordner (zB D:\Bilder) per Schaltflächen in einem Userform anzeigen zu lassen? Also im Prinzip wie bei einem Bildbetrachter:
Bei jeder Betätigung eines Vorwärts-Schalters werde...
16.06.2009 22:15:03
Thread-ID: 1082074
3 Beiträge
Zeilen einfügen - Formel übernehmen
Frank

Hallo Zusammen und einen schönen Rest-Sonntag!!!
Irgendwie stehe ich auf dem Schlauch. In Spalte A und F stehen Formeln. Jeweils in A1 und F1 eingegeben und dann runter kopiert. Nun kann es erforderlich werden, dass ich irgendwo eine Zeile einfügen muß und dann ist in der neuen Zeile keine...
12.07.2009 20:27:29
Thread-ID: 1088023
7 Beiträge
Bilder automatisch einfügen in Zelle
SimonB

Hallo zusammen,
ich habe ein Problem in Excel, welches ich auch durch diverse VBA-Makros aus dem Netz nicht lösen kann:
Ich möchte in der Spalte A eines Tabellenblattes über ein Makro ein JPG einfügen lassen, welches durch eine immer 6-stellige Artikelnummer in der Spalte H des selben B...
30.09.2009 12:57:23
Thread-ID: 1106400
8 Beiträge
Bild hinter Zellen
joerg

Hallo Zusammen,
habe ein kleines Problem.
Gibt es in XLS eine Möglichkeit ein Bild "hinter" die Zellen zu legen, sodass eine Art Raster entsteht? Als Hintergrundbild ist etwas zu unflexibel, da es 3-4 Bilder auf einer A4 - Seite sein sollen.
Abhängig von der angewählten Zelle auf...
02.11.2009 16:11:56
Thread-ID: 1113879
2 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
8
10
7
8
2
6
7
1
1
4
3
1
3
7
7
4
1
1
7
3
2
1
2