Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1600to1604
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
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Bild in Excel Tabelle einfügen

VBA - Bild in Excel Tabelle einfügen
06.01.2018 13:06:55
Tamara
Hallo :D
Wie lautet der Code, wenn ich ein Bild(Image) vom UserForm in die Excel Tabelle in Spalte A1, A2, A3 usw. einfügen möchte?
Mein bisheriger, jedoch fehlgeschlagener Code lautet: 
If CheckBox1.Value = True Then Cells(last, 1).Value = Image1
If CheckBox2.Value = True Then Cells(last, 1).Value = Image2
ich wollte halt, dass wenn ich eines der Checkboxen anklicke bzw auswähle, dass dann durch das Klicken des Commandbutton, auf Spalte A, A1 etc. da entsprechende Bild eingefügt wird

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Bild in Excel Tabelle einfügen
06.01.2018 14:18:05
fcs
Hallo Tamara,
meines Wissen kann man das Image nicht direkt aus dem Userform eine Zelle übertragen/kopieren.
Hierzu muss man auf die Bilddatei aus der das Image generiert wurde zugreifen und diese Grafik-Datei ins Tabellenblatt laden und in der gewünschten Zelle positionieren/formatieren.
Alternativer Weg: du legst die Bilder der Images in einem separaten Blatt ab und kopierst die Bilder dann entsprechend der Auswahl im Userform in die gewünschte Zelle.
Der alternative Weg ist in der Umsetzung der einfachere - insbesondere hast du hier alle Daten in einer Datei und muss nicht auf externe Grafik-Dateien zugreifen.
Gruß
Franz
Beispiel-Code für Einfügen der in einem separaten Tabellen-Blatt abgelegten Bilder via ode im Userform 
Private Sub CommandButton1_Click()
'Einfügen Daten und Bilder
Dim last
Dim wksData As Worksheet
Dim wksBild As Worksheet, objBild As Shape
Set wksData = Worksheets("Tabelle1")'Tabellenblatt in das eingefügt werden soll
Set wksBild = Worksheets("Bilder")'Tabellenblatt mit den zu kopierenden Grafiken
With wksData
If CheckBox1.Value = True Then
Set objBild = wksBild.Shapes("Grafik_Nr  1")
ElseIf CheckBox2.Value = True Then
Set objBild = wksBild.Shapes("Grafik_Nr  2")
End If
.Activate
last = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 'test-Zeile
.Cells(last, 2) = objBild.Name 'test-Zeile
.Cells(last, 1).Select 'Einfügezelle muss selektiert sein, _
sonst muss man die eingefügte Grafik zusätzlich positionieren
objBild.Copy
ActiveSheet.Paste
.Cells(last, 2).Activate
End With
End Sub

Anzeige

339 Forumthreads zu ähnlichen Themen

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
Anzeige
Bild aus Tabelle einem Image in einer Userform zuw
Polarfuchs

Hallo Ihr Checker,
in einer Arbeitsmappe habe ich ein Tabellenblatt mit Bildern. Wie kann ich ein bestimmtes Bild, die haben die Benennungen "Vorname_Nachname", einem Image einer UserForm zuweisen? Mit "LoadPicture" habe ich es schon versucht. Da bekomme ich die Fehlermeldung "Typen unvertr...
28.09.2008 14:40:18
Thread-ID: 1012915
7 Beiträge
Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Anzeige
VBA - Ganzer Bildschirm ein/aus
Klaus

Verehrte EX-Gurus!
Ich habe mir in Excel ein CD-Archiv angelegt, das ich bequem über einfache Makros auf meine Bedürfnisse abgestimmt steuern kann.
Unter anderem kann ich den "Ganzen Bildschirm" ein- und ausschalten - ich wollte diese Prozedur mit Variable und Not Variable auf ein Makro...
08.11.2008 08:21:33
Thread-ID: 1022845
3 Beiträge
Bild in Userform laden
Toby


hallo zusammen
Die aufgabe ist es, mit einer auswahl liste verschiedene Bilder in eine userform zu laden!
die Bilder sollte mit dem Excelfile gespeichert werden können
Zur Zeit mache ich das so, ich lade ein bild mit folgender Funktion in eine Userform
Public Function Bil...
15.12.2008 12:57:09
Thread-ID: 1033005
4 Beiträge
Zellenformat in Formeln
Larass

Hallo,
ich möchte in einer Zelle links von einem Ergebnis einen string anzeigen, jedoch nur wenn auch ein ergebnis in der Zelle steht.
Konkret habe ich z.B. als Ergebnis eine Spannung Sigma,st
Sobald ich eine Formel eingebe wird aber die Formatierung zerschossen, sprich das Sigma wi...
16.12.2008 16:42:12
Thread-ID: 1033346
6 Beiträge
Formatproblem in Formel
martin

Hallo nochmal! :-)
Mein Problem:
In Zelle A1 steht ein Datum. Formatiert auf "Datum, Typ: 14.03.01"
In Zelle A2 soll neben Text auch das Datum (+14 Tage) dargestellt werden.
Also so:
="Bitte überweisen Sie den Betrag bis zum "&A1+14&" auf ....."
Das Problem: Das...
19.12.2008 15:18:41
Thread-ID: 1034180
3 Beiträge
Formatierung mit in die Formel einarbeiten
Jochen

Hallo,
habe folgende Formel:
=WENN(A8"";VERKETTEN(SVERWEIS(A8;B2:E5;2;FALSCH);ZEICHEN(10);SVERWEIS(A8;B2:E5;3;FALSCH);" / "; SVERWEIS(A8;B2:E5;4;FALSCH));"") .
Diese Formel verkettet "Name" - "Vorname" - "/" und eine weitere "Bezeichnung" miteinander.
Die Zelle ist Fett und Schr...
12.01.2009 10:57:00
Thread-ID: 1038800
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox CommandButton

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
1
3
6
2
5
2
3
5
2
3
7
5
3
2
5
3
2
2
3
6
8
5
3
3
2