Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1472to1476
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
1472to1476
1472to1476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder in VBA eindeutig identifizieren

Bilder in VBA eindeutig identifizieren
11.02.2016 13:15:38
Thomas
Hallo Zusammen,
ich habe schon oft hier Lösungen gefunden aber nun habe ich eine Frage zu der ich keine Lösung gefunden habe.
Ich habe eine Excel Datei mit diversen eingefügten Bildern, die diverse Stati darstellen. Die Bilder sind ein grüner und ein roter Punkt mit gleichen Abmessungen(!). Ich will nun aus den Bildern mittels VBA weiterverarbeitbare Daten generieren, also z.B. in die Zelle in der sich das Bild befindet den Wert "grün" oder "rot" eintragen.
Dazu brauche ich aber eine einzigartige Eigenschaft dieses Shapes. Ich habe es mit .height und.width probiert aber die Abmessungen sind gleich.
Fällt jemandem eine andere Möglichkeit ein? Wenn man eine Möglichkeit hätte die Bildgröße in Bit/Bytes zu ermitteln, wäre die sicherlich unterschiedlich.
Oder vlt. hat jemand eine andere Idee?
Danke!
VG
Thomas

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder in VBA eindeutig identifizieren
11.02.2016 13:42:35
ChrisL
Hi Thomas
Bilder lassen sich über den Namen eindeutig identifizieren:
Sub Makro1()
Dim pic As Object
For Each pic In ActiveSheet.Pictures
MsgBox pic.Name
Next pic
End Sub

Sinn und Zweck der Übung erschliesst sich mir aber nicht.
cu
Chris

AW: Bilder in VBA eindeutig identifizieren
11.02.2016 13:53:37
Thomas
Hallo Chris,
das ist schon klar. Aber das hilft mir nicht.
Okay ich lade mal ein Beispiel hoch. Ich muss wissen ob in ZelleA1 ein rotes oder ein grünes Bild ist. Das selbe in Zelle A2 usw. Die Namen sind nicht eindeutig, da sich diese Bilder regelmäßig ändern. Über Namen kann ich also NICHT identifizieren ob das Bild rot oder grün ist.
https://www.herber.de/bbs/user/103463.xlsx
Andere Ideen?
Gruß
Thomas

Anzeige
AW: Bilder in VBA eindeutig identifizieren
11.02.2016 14:16:27
ChrisL
Hi Thomas
Ich lasse die Frage offen.
Es ist mir weiterhin unklar was das soll. Jemand macht die Bilder ja rein, warum also nachträglich identifizieren und in einen Zellwert umwandeln. Könntest den User ja den Zellwert ändern lassen und hieraus ergibt sich das Bild (ginge sogar mit bedingter Formatierung).
cu
Chris

AW: Bilder in VBA eindeutig identifizieren
11.02.2016 14:39:09
Rudi
Hallo,
warum nimmst du nicht einfach ein rotes Quadrat und einen grünen Kreis aus den Formen?
Da kannst du einfach die Farbe bestimmen.
Gruß
Rudi

AW: Bilder in VBA eindeutig identifizieren
11.02.2016 15:50:17
Thomas
Hallo Leute,
ich seh schon, niemand mag meine Frage beantworten ;)
Ja, WENN ich Einfluss auf die Ursprungsdatei hätte, hätte ich die Lösung schon längst, da fallen mir selbst 1000 Möglichkeiten ein.
ABER ich habe keinen Einfluss auf die Ausgangsdatei und die enthält diese bescheidenen Bilder nun mal (und nichts anderes was ich zur Identifikation benutzen kann) und das lässt sich nun eben nicht ändern.
Also brauche ich noch immer eine Lösung, wie ich mit der gegebenen Situation umgehen kann.
Trotzdem danke für Eure Antworten.
Gruß
Thomas

Anzeige
AW: Bilder in VBA eindeutig identifizieren
11.02.2016 16:50:28
ChrisL
Hi Thomas
Ja, WENN du das schon vorher so beschrieben hättest, dann hätten wir dein Problem auch verstanden und wären motiviert gewesen dir eine Lösung zu suchen :)
Könntest tatsächlich ausprobieren das Bild temporär extern zu speichern, etwa so...
https://www.herber.de/forum/archiv/1128to1132/1130567_Grafik_oder_Bereich_mit_VBA_als_Bild_speichern.html
Anschliessend FileSize prüfen (ich glaube innerhalb Excel nicht möglich) und mit Kill die temporäre Datei wieder löschen.
cu
Chris

Anzeige
AW: Bilder in VBA eindeutig identifizieren
11.02.2016 18:11:14
firmus
Hi Thomas,
wer wird den gleich die Flinte ins Korn werfen, bevor Du nicht jede Eigenschaft von Picture und Shapes auf Differenzen untersucht hast ?
Ich habe es mit Deiner Datei mit den Index(Picture) und Index(Shapes) versucht.
Bei Shapes bekommst Du eine laufende Nummer, bei Picture bekommst Du für den grünen Kreis eine "2", für das rote Rechteck eine "1".

Sub Makro1()
Dim pic As Object
Dim i As Long
For Each pic In ActiveSheet.Pictures
i = i + 1
Cells(i, 5).Value = pic.Name
Cells(i, 6).Value = pic.Index
Cells(i, 7).Value = ActiveSheet.Shapes(i).ID
Cells(i, 8).Value = ActiveSheet.Shapes(i).Name
Next pic
i = i
End Sub
Das benötigt natürlich noch die Verifikation mit größerer Datenmenge, aber ein Ansatz?
Gruß
Firmus
Geduld - in Deinem Wortschatz?

Anzeige
AW: Bilder in VBA eindeutig identifizieren
11.02.2016 19:14:06
Thomas
Hallo Zusammen,
danke für Eure Lösungsvorschläge, wahrscheinlich war meine Beschreibung mangelhaft. Und ja, es war vor dem Essen, von daher die Ungeduld... :)
@firmus: genau so was hatte ich gesucht, leider geht's bei der Originaldatei nicht. Da ist sowohl Object.Index als auch Shape.ID unterschiedlich, die Namen leider auch.
@ChrisL: die Lösung sieht vielversprechend aus, das werde ich mal umsetzen. Morgen.
Ich hänge noch mal das bereinigte Original an, falls jemand noch mal rumprobieren möchte...
Danke!
VG
Thomas
https://www.herber.de/bbs/user/103477.xlsx
Anzeige

315 Forumthreads zu ähnlichen Themen

An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
Anzeige
Script um auf jeden Blatt eine Zelle zu markieren
Eddie

Hallo, ich habe eine eigentlich ganz einfache sache, aber irgendwie ruft wohl eher das WE in meinen Kopf :-)
Ich will eigentlich nur ein kleinen VBA Code ... der in jeden vorhandenen Tabellenblatt die Zelle A1 markiert
Vielleicht kann mir jemand da etwas sagen ?
gruß Eddie
22.08.2008 15:11:53
Thread-ID: 1003910
15 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Anzeige
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Zelle mit heutigem Datum finden
Steffi

Hallo liebe Spezialisten,
hier im Forum hat man mir den unten stehenden Code gezeigt um im Bereich "F:F" die Zelle mit dem heutigen Datum zu finden. Das klappt soweit auch prima :-)
Wenn das Datum jedoch per Formel wie z.B. =HEUTE() erzeugt wurde, funktioniert der Code nicht.
Könnt...
05.09.2008 11:46:00
Thread-ID: 1007634
12 Beiträge
Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
gleich Zellen finden
Johannes

Hallo Excel-Kenner,
mein Sohn hatte gerade in der Schule bei der Bruchrechnung die Aufgabe vier verschiedene Brüche in aufsteigender Folge zu sortieren. Klarer Fall "kleinstes gemeinsames Vielfache" suchen und entsprechend erweitern und dann vergleichen.....
Aber für die Nenner mit 35,...
15.09.2008 15:29:00
Thread-ID: 1009809
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
7
14
9
2
5
5
11
1
2
4
5
4
2
2
1
8
7
9
3
3
6
15
2
5