Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1464to1468
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
1464to1468
1464to1468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder aus Kommentar kopieren

Bilder aus Kommentar kopieren
18.12.2015 15:53:21
Welga
Hallo,
ich habe eine Excelliste mit Kommentaren in diversen Zellen. Teilweise ist in diesen Kommentaren ein Bild als Hintergrundbild eingefügt.
Jetzt stehe ich vor drei Aufgaben:
1. Ich muss überprüfen, ob es eine Kommentar in einer Zelle gibt
2. Hat diese Kommentar ein UserPicture als Hintergrund
3. Dieses Bild muss in einer UserForm dargestellt werden.
Kann mir jemand hierbei helfen?
Ein Bild automatisch als Hintergrund per Makro einfügen, ist kein Problem, jedoch der umgekehrte Weg, also wieder auf dieses Bild zuzugreifen ist mir nicht klar.

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

Betreff
Datum
Anwender
Anzeige
AW: Bilder aus Kommentar kopieren
18.12.2015 16:09:09
Nepumuk
Hallo,
1.
If Not Cells(1, 1).Comment Is Nothing Then MsgBox "OK"
2.
If Cells(1, 1).Comment.Shape.Fill.Type = msoFillPicture Then MsgBox "OK"
3.
Keine Chance
Gruß
Nepumuk

AW: Bilder aus Kommentar kopieren
18.12.2015 17:41:56
Welga
Hallo Nepomuk,
Danke erstmal für die ersten beiden Punkte.
Wenn ich alles richtig im Kopf habe, dann müssten die Bilder doch als eine Formateigenschaft des Kommentars hinterlegt sein. Wenn ich diese irgendwie auslesen könnte, dann müsste es doch möglich sein, diese Eigenschaft auf z.B. ein Textfeld zu übertragen.
Hat dazu jemand eine Idee?

AW: Bilder aus Kommentar kopieren
18.12.2015 18:16:21
Nepumuk
Hallo,
ich hab es doch geschafft, allerdings wird der Text des Kommentars mit angezeigt denn der ist Teil des Shapes.
https://www.herber.de/bbs/user/102355.xlsm
Gruß
Nepumuk

Anzeige
AW: Bilder aus Kommentar kopieren
19.12.2015 09:21:33
Welga
Hallo Nepomuk,
ich habe mir deinen Code soweit angeschaut. Jedoch verstehe ich eins nicht. Wenn ich das Makro ganz normal ablaufen lassen , funktioniert alles. Debugge ich jedoch alles Schritt für Schritt, so bleibt der "lngptrPointer" auf Null und somit wird "PastePicture" nicht gesetzt.
Ich muss deinen Code leider erstmal debuggen, damit ich nachvollziehen kann, weshalb er in meiner Arbeitsmappe nicht richtig läuft.

AW: Bilder aus Kommentar kopieren
19.12.2015 09:41:52
Nepumuk
Hallo,
die CopyPicture-Methode schlägt fehl bzw. es wird nichts kopiert wenn du mit F8 durch den Code gehst, aber das ist normal.
Gruß
Nepumuk
Anzeige

168 Forumthreads zu ähnlichen Themen

Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Anzeige
Automatisierung Exceldiagramme in Powerpoint
morb

Hallo liebes Forum,
ich habe folgendes Problem:
Ich habe eine Excelmappe mit 3 Tabellenblätter.
Auf jedem Tabellenblatt befindet sich ein Diagramm. Ich möchte nun ein einfaches Makro erstellen mit dem ich aus Excel heraus die 3 Diagramme in eine Powerpoint Präsentation einfügen kan...
27.09.2009 22:37:32
Thread-ID: 1105920
3 Beiträge
VBA Code in Modul der gleichen Datei einfügen
Micha

Hallo,
ich möchte VBA Code in ein Modul der gleichen Datei einfügen. Ich finde überall nur die Möglichkeit, VBA-Code in eine andere Datei einzufügen. (s. Beispiel unten)
Sub neuertest() Open "Probe.txt" For Output As #1 Print #1, "Das ist ein Test" Close #1 End Sub Jemand eine Idee ?
02.11.2009 16:44:25
Thread-ID: 1113889
3 Beiträge
Anzeige
VBA - Letzte Tabelle Finden und Formel einfügen
André

Hallo Forum,
ich habe jetzt ein paar VBA Funktionen gefunden und in meine Datei eingebaut,
komme aber trotzdem nicht zum Schluss.
Ich habe 5 Tabellenblätter (1 - 5). Für die KW 6 will ich per VBA ein neues Blatt
einfügen und in A1 der Tabelle6 mittels Makro die Funktion
"vo...
07.12.2009 13:31:49
Thread-ID: 1122185
5 Beiträge
Diagramm trendlinie Automatisch einfügen,ändern,an
chris

Hallo VBA experten,
ich brauche eure Hilfe.Ich habe ein ganz normales Balkendiagramm.In diesem stelle ich Werte dar über 2 jahre(unten Rubrikenachse).
die wete sind immer unterschiedlich je nachdem welche daten eingegeben und Ausgewertet werde.
Die Achse links ist aber für beide jah...
08.01.2010 01:11:33
Thread-ID: 1127913
4 Beiträge
VBA Zwischensumme einfügen kombiniert mit Links | Herbers Excel-Forum
Julia
Hallo zusammen.
ich habe folgendes Problem, für das ich ein Makro haben möchte:
In Spalte A habe ich von Zeile 3 bis 9 verschiedene Kriterien, die über einen Zeitablauf
(Zeile 2, Spalte B bis M) verschiedene Werte tragen können.
Dynamisch halte ich den Zeitablauf und die Kriterien...
31.01.2010 20:28:46
Thread-ID: 1134675
2 Beiträge
VBA Zwischensumme einfügen kombiniert mit Links | Herbers Excel-Forum
Julia
Hallo zusammen.
ich habe folgendes Problem, für das ich ein Makro haben möchte:
In Spalte A habe ich von Zeile 3 bis 9 verschiedene Kriterien, die über einen Zeitablauf
(Zeile 2, Spalte B bis M) verschiedene Werte tragen können.
Dynamisch halte ich den Zeitablauf und die Kriterien...
31.01.2010 20:32:30
Thread-ID: 1134677
4 Beiträge
VBA: Problem mit Variable in Formel einfügen
Harald

Hallo,
diese VBA Zeile
Selection.FormulaArray = "=LARGE(IF(SUBTOTAL(2,INDIRECT(""Tabelle1!G""&ROW(R1:R9))),Tabelle1!R1C[5]:R9C[5]),ROW(R[-4]C[-1]))"
fügt diese Formel in Tabelle1 ein
=KGRÖSSTE(WENN(TEILERGEBNIS(2;INDIREKT("Tabelle1!G"&ZEILE($1:$9)));Tabelle1!G$1:G$9);ZEI...
29.07.2010 19:03:24
Thread-ID: 1169548
5 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

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
3
2
2
1
4
3
1
3
4
4
1
12
3
16
2
1
2
2
3
4
4
2
5
3