Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

(mehrere) Bilder einfügen

Forumthread: (mehrere) Bilder einfügen

(mehrere) Bilder einfügen
16.10.2021 12:13:54
M@tt
Hallo ins Forum,
ich möchte 1 - 6 Bilder , (das ist unterschiedlich) aus einem speziellen Ordner auswählen können und diese Bilder dann in ein Worksheet an vorgegebener Position einfügen.
https://www.herber.de/bbs/user/148643.xlsm
Zusätzlich sollen sie noch verkleinert werden. Leider scheitere ich bisher an der Automatisierung meines Vorhabens an verschiedenster Stelle. Es geht bei der geplanten Bildposition schon los.
Vielen ank für Eure Hilfe ;-).
Gruß M@tt
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: (mehrere) Bilder einfügen
16.10.2021 13:04:28
Hajo_Zi
Hallo M@tt,
warum 6 Variablen für 6 Bereiche?
Die hätte ich doch direkt angegeben Range("A23")...
Bilder einfügen, schaue hier
http://hajo-excel.de/inhalt_vba_bild.htm
GrußformelHomepage
Anzeige
AW: (mehrere) Bilder einfügen
16.10.2021 13:28:28
Nepumuk
Hallo M@tt,
teste mal:

Option Explicit
Private Sub CommandButton1_Click()
Dim objFileDialog As FileDialog
Dim objShape As Shape
Dim aobjImageRange(1 To 6) As Range
Dim ialngIndex As Long
Set objFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With objFileDialog
.AllowMultiSelect = True
.InitialFileName = "C:\Users\Ma\OneDrive - GA\Pictures\ZZZProbleme\"
With .Filters
If .Count > 0 Then Call .Delete
Call .Add("Bilddateien", "*.jpg;*.gif;*.bmp")
End With
If .Show Then
Set aobjImageRange(1) = ThisWorkbook.Sheets("Tabelle1").Cells(20, 1)
Set aobjImageRange(2) = ThisWorkbook.Sheets("Tabelle1").Cells(20, 4)
Set aobjImageRange(3) = ThisWorkbook.Sheets("Tabelle1").Cells(30, 1)
Set aobjImageRange(4) = ThisWorkbook.Sheets("Tabelle1").Cells(20, 4)
Set aobjImageRange(5) = ThisWorkbook.Sheets("Tabelle1").Cells(40, 1)
Set aobjImageRange(6) = ThisWorkbook.Sheets("Tabelle1").Cells(40, 4)
For ialngIndex = 1 To .SelectedItems.Count
Set objShape = ThisWorkbook.Sheets("Tabelle1").Shapes.AddPicture( _
Filename:=.SelectedItems(ialngIndex), LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
Left:=aobjImageRange(ialngIndex).Left, Top:=aobjImageRange(ialngIndex).Top, Width:=-1, Height:=-1)
With objShape
.LockAspectRatio = msoTrue
.Height = 141
End With
Next
End If
End With
Set objFileDialog = Nothing
Set objShape = Nothing
Erase aobjImageRange
End Sub
Gruß
Nepumuk
Anzeige
AW: (mehrere) Bilder einfügen
16.10.2021 13:46:28
M@tt
Hallo Nepumuk,
vielen herzlichen Dank, das ist die Lösung. Mit soviel Code hätte ich nicht gerechnet :-) Es funktioniert wie gewünscht.
Einen schönen Tag wünsche ich noch allen Helfern sowie den Hilfesuchenden
;

Forumthreads zu verwandten 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
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Bilder per Makro in Excel einfügen
stefanseevetal

Hallo zusammen!
Ich habe ein Problem, das ich mir nicht erklären kann. Ich füge nach einer Auswahl über den untenstehenden Code ein Bild im Tabellenblatt "Deckblatt" ein. Es soll gemäß dem Code oben links eingefügt werden. Leider funktioniert dies bei einigen Computern nicht und das Bild wi...
27.10.2009 19:27:47
Thread-ID: 1112579
4 Beiträge
Bild in Zellverbund einfügen
Markus

Hallo,
füge ich ein Bild (Einfügen Graphik) in einen Zellverbund (verbunde Zellen von A3 bis R13 ein,
so wird das Bild zwar eingefügt ....
aber die Grösse passt sich nicht dem Zellverbund an (Bild meistens zu gross);
es wird zudem nicht eingemittet (der Zellverbund wurde vorher...
29.10.2009 16:19:45
Thread-ID: 1113103
4 Beiträge
Anzeige
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
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
Bild von der userform in tabelle einfügen
der

Hallo Excelsfans,
ich habe auf einer userform ein bild (image). dieses möchte ich gern als bild in eine zelle einfügen
irgendwie so
cells(1,1).insert.picture=image1.picture
geht sowas?
gruß rocky
14.06.2010 19:14:52
Thread-ID: 1161836
3 Beiträge
Anzeige
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
VBA Code einfügen
markus

Hallo zusammen,
ich habe noch ein Problem,
beim erstellen der neuen Blätter soll der Code aus dem Blatt "Mustermann_M"
mit übernommen werden, oder über dieses Makro eingefügt werden.
Ist das möglich?
Danke und Gruß Markus
Sub Blätter_erstellen_neu() Sheets("Vorgaben").Un...
12.08.2010 15:37:02
Thread-ID: 1171898
7 Beiträge
Anzeige
Formel via VBA in best. (viele) Zellen einfügen
Klaus

Hallihallo zusammen,
und zwar mache ich u.a. einen Vergleich von 2 Tabellen mit mehreren Spalten und vielen Zeilen (meist um die 2500). [Vergleichscode ursprünglich von Hajo-Excel.de... vielen Dank an der Stelle!!]
Ich habs so hinprogrammiert und es hat im Kleinen auch gut funktioniert....
15.09.2010 16:53:30
Thread-ID: 1177873
5 Beiträge
per VBA Excel Chart mit Verknüpfung in Powerpoint
Frank

Guten Morgen zusammen!
Wie kann ich per VBA eine Excel-Range (mit dem Namen "TEST") in eine bestehende Powerpointpräsentation namens "MASTER.ppt" einfügen? Das einfügen soll als Verknüpfung stattfinden.
Im Anschluß möchte ich dann aus Excel heraus ein in der "MASTER.ppt" bestehendes Mak...
04.11.2010 22:50:54
Thread-ID: 1185141
2 Beiträge
Bild in Zelle einfügen.
Ernst

Hallo Exel Profis !
Ich würde mal wieder eure Hilfe benötigen.
Ich bräuchte ein makro das mir folgendes erfüllt, per Doppelklick in Zelle. g3 sollte sich der ordner C:\Dokumente und Einstellungen\Eigene Dateien\Eigene Bilder öffnen .Danach möchte ich mir ein bild auswählen können das si...
24.11.2010 12:48:35
Thread-ID: 1188515
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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