Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1340to1344
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
1340to1344
1340to1344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder in Zellen einfügen

Bilder in Zellen einfügen
17.12.2013 07:33:45
Dikr
Hallo zusammen,
kurz vorab mir steht Office 2003 und 2010 zu verfügung.
Ich habe folgendes Problem:
In einer Tabelle habe ich in der Spalte F (ab Zeile 8 bis ca 700) verschiedene Namen stehen. Jeder Name steht für ein Bild/Symbol im jpg-Format.
Die Bilder/Symbole tragen alle den Namen GHS01 bis GHS09 und sind wenn mehrere Symbole benötigt werden mit ", " getrennt.
Wie bekomme ich es hin, den Text z.B. F8=GHS01, GHS08 F9=GHS07 ... durch die Bilddateien zu ersetzen.
Es können von 0 bis theoretisch 9 Bilder in einer Zelle benötigt werden.
Gruß
Dirk

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder in Zellen einfügen
17.12.2013 10:07:21
Beverly
Hi Dirk,
wo sind die Bilder gespeichert - im Tabellenblatt oder auf der Festplatte?

AW: Bilder in Zellen einfügen
18.12.2013 10:00:17
Dirk
Hallo Karin,
die Bilder befinden sich auf der Festplatte.
Alle in einem Verzeichniss. Die Bildgröße ist 135x135 pixel.
Gruß
Dirk

AW: Bilder in Zellen einfügen
18.12.2013 10:36:33
Beverly
Hi Dirk,
versuche es mal auf diesem Weg:
Sub BilderEinfuegen()
Const strPfad As String = "D:\Test\"
Dim lngZeile As Long
Dim bytZaehler As Byte
Dim arrBilder
For lngZeile = 8 To IIf(IsEmpty(Cells(Rows.Count, 6)), _
Cells(Rows.Count, 6).End(xlUp).Row, Rows.Count)
If Cells(lngZeile, 6)  "" Then
If InStr(Cells(lngZeile, 6), ",") > 0 Then
arrBilder = Split(Cells(lngZeile, 6).Value, ",")
Else
ReDim arrBilder(0)
arrBilder(0) = Cells(lngZeile, 6)
End If
For bytZaehler = 0 To UBound(arrBilder)
If Dir(strPfad & arrBilder(bytZaehler) & ".jpg")  "" Then
ActiveSheet.Pictures.Insert (strPfad & arrBilder(bytZaehler) & ".jpg")
If bytZaehler = 0 Then
With ActiveSheet.Pictures(ActiveSheet.Pictures.Count)
.Top = Cells(lngZeile, 6).Top
.Left = Cells(lngZeile, 6).Left
.Height = Cells(lngZeile, 6).Height
End With
Else
With ActiveSheet.Pictures(ActiveSheet.Pictures.Count)
.Top = Cells(lngZeile, 6).Top
.Left = ActiveSheet.Pictures(ActiveSheet.Pictures.Count - 1).Left + _
ActiveSheet.Pictures(ActiveSheet.Pictures.Count - 1).Width
.Height = Cells(lngZeile, 6).Height
End With
End If
End If
Next bytZaehler
End If
Next lngZeile
End Sub
Den Speicherpfad der Bilder musst du natürlich deinen Bedingungen entsprechend ändern.
Das Anpassen der eingefügten Bilder an die Zeilenhöhe habe ich mal auskommentiert, das ich nicht weiß, ob du das benötigst.

Anzeige
AW: Bilder in Zellen einfügen
19.12.2013 07:27:13
Dirk
Hallo Karin,
Ich konnte das gerade mal ausprobieren. Sieht wirklich gut aus.
Ein kleines Problem gibt es aber, bei eigigen Symbolen verzerrt er die bildgröße.
Normale Bildgröße 108*108 pixel
nach einfügen 200*108 pixel (in die Breite gezogen)
kann man das kontrollieren?
Gruß
Dirk

AW: Bilder in Zellen einfügen
19.12.2013 08:22:37
Beverly
Hi Dirk,
ergänze jeweils for der Zeile .Top = .... diese Zeile
                     .ShapeRange.LockAspectRatio = msoTrue
Übrigens: in meinem vorhergehenden Beitrag hatte ich geschrieben, dass ich die Anpassung an die Zeilenhöhe auskommentiert habe. Das stimmt natürlich nicht - hatte beim Code nachträglich die Zeilenumbrüche eingefügt und ihn dann noch einmal in den Beitrag kopiert und dabei vergessen die betreffenden Zeilen auszukommentieren. Falls du das noch machen willst: es sind jeweils die Zeilen .Height = ...

Anzeige

421 Forumthreads zu ähnlichen Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Anzeige
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
in spalte müssen 2 gleiche zahlen vorh. sein ...
Jessi

hallo zusammen,
suche nach einem makro, dass in spalte A überprüft ob von den dort geschriebenen zahlen jeweils zwei gleiche vorhanden sind. es geht um eine doppelbelegung eines zimmers. die zahl ist die zimmer-nr.
wäre z.b. nur einmal eine zahl in der spalte, wäre es möglich in das jew...
04.10.2008 15:33:00
Thread-ID: 1014154
5 Beiträge
Anzeige
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Eine Zahl mit vorhandener Zahlenliste vergleichen
Niklas

Hallo Leute!
Es geht darum, eine eingegebene Zahl mit einer vorhandenen Zahlenliste vergleichen und die beiden nächstgelegenen Zahlen der Zahlenliste verwenden!
zur veranschaulichung:
ich habe die die zahlenliste : 1 , 2, 3, 4, 5, 6, 7
der eingegebene Wert ist z.B 1.5 dann soll...
17.10.2008 09:49:22
Thread-ID: 1017045
8 Beiträge
vorgegebene Summe aus Zahlen berechnen
mArsupiLami

Moin!
Ich benötige um regelmäßige Fehlerkorrekturen laufen zu lassen ein Script, dem ich eine Summe vorgebe und eine Range aus Zahlen (von mir aus Zellen A:A), das mir die Zusammenstellung aus Zahlen berechnet, die meine gesuchte Summe ergeben (Noch besser: Alle Kombinationen aus der Zahlen...
21.11.2008 11:25:35
Thread-ID: 1026668
6 Beiträge
Zelle des erstes Vorkommen eines Zeichens ausgeben
-s

Hallo Forum,
ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:
a|b|c|c|c|e|
Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.
Besten Dank!
-s
07.12.2008 21:32:00
Thread-ID: 1030929
4 Beiträge
Autofilter - Anzahl vorh. Sätze
KViertel

Hallo in die Runde,
In einem Tabellenblatt wird In VBA ein Autofilter gesetzt. Die dabei angezeigten Sätze sollen in ein anderes Tabellenblatt kopiert werden. Wenn jetzt keine Sätze vorhanden sind, wird die Sub abgebrochen. In der Recherche habe ich einen Hinweis zu Subtotal gefunden, weiß...
11.12.2008 11:45:00
Thread-ID: 1031999
3 Beiträge
Anzeige

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
2
11
3
4
3
4
7
5
3
2
4
2
2
5
2
7
11
2
4
4
3
4
5
10
2