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

Bilder mit VBA einfügen

Forumthread: Bilder mit VBA einfügen

Bilder mit VBA einfügen
13.08.2015 22:57:27
Martin
Hallo Zusammen
Ich möchte gerne im einem Excel ein Bild mit Makros von meiner Digitalkamera einfügen lassen. Der Bildername kann sich Ändern. Ich möchte mit einem Button ein Bild einfügen aus Datei G:\ einfügen und wenn ich wieder auf den Button drücke soll das Bild gelöscht werden und das Excel muss mich neu nach dem Pfad für das neue Bild fragen.
Dazu muss sich das Bild an die Zeilegrösse A5 anpassen.
Besten Dank für die Hilfe
Gruss

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder mit VBA einfügen
14.08.2015 09:04:52
Beverly
Hi Martin,
vielleicht so:
Sub bild_einfuegen()
Dim strBild As String
strBild = Application.GetOpenFilename("Bilddateien (*.jpg), *.jpg")
If strBild = "" Or strBild = "Falsch" Then Exit Sub
Application.ScreenUpdating = False
With ActiveSheet
If .Pictures.Count > 0 Then .Pictures(.Pictures.Count).Delete
With .Pictures.Insert(strBild)
.Left = 0
.Top = Range("A5").Top
.Height = Range("A5").Height
End With
End With
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Bilder mit VBA einfügen
14.08.2015 11:07:46
Martin
Danke dir viel mals Karin.
Jetzt habe ich noch eine Frage, ich möchte gerne dieses Bild noch zusätzlich in ein zweittes Tabellenblatt einfügen. Wie muss die Codierung am Schluss aussehen?
Ich danke dir viel mals für eine Hilfe.

AW: Bilder mit VBA einfügen
14.08.2015 12:02:50
Beverly
Einfach noch einmal denselben Teil für das Einfügen daruntersetzen:
    With ActiveSheet
If .Pictures.Count > 0 Then .Pictures(.Pictures.Count).Delete
With .Pictures.Insert(strBild)
.Left = 0
.Top = Range("A5").Top
.Height = Range("A5").Height
End With
End With
With Worksheets("Tabelle2")  ' 0 Then .Pictures(.Pictures.Count).Delete
With .Pictures.Insert(strBild)
.Left = 0
.Top = Range("A5").Top
.Height = Range("A5").Height
End With
End With

Anzeige
AW: Bilder mit VBA einfügen
14.08.2015 12:41:17
Martin
Perfekt danek für deine Hilfe. Es funktioniert alles perfekt.
Gruss
Martin
;

Forumthreads zu verwandten Themen

Leistungstexte in RE per SVERWEIS einfügen
Jana

Hallo Leute,
könnt ihr mir mal aus die Sprünge helfen...
Ich möchte Rechnungen in Excel schreiben und die benötigten Leistungstexte mittels SVERWEIS ergänzen.
Wie kann ich das Suchkriterium (eine Nummer) ausblenden, so daß es auf der Rechnung nicht erscheint, mir jedoch den Leistung...
18.08.2009 00:11:03
Thread-ID: 1096593
11 Beiträge
Anzeige
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
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 per Pfadangabe einfügen
strodti

Hallo liebes Forum,
bin neu hier, konnte bereits einige Probleme dank des Archivs lösen, aber folgendes bisher nicht:
Ich soll in Excel 2003 eine Vorlagendatei erstellen, die für verschiedene gleichartige Projekte dienen soll. Hierzu ist auch die Einbindung eines Fotos erforderlich, wel...
02.02.2010 15:55:32
Thread-ID: 1135149
5 Beiträge
Zeile einfügen - Formel wird nicht übernommen
Alex

Hallo,
ich habe folgendes Problem:
Beipiel
A2 A3 A3
1 1 2 =A2+A3
2 1 2 =A2+A3
3 1 2 =A2+A3
Wenn ich eine Zeile zwischen Zeile 2 und 3 einfüge, dann wir meine Formel in A3 nicht in die eingefügte Zeile übernommen....
10.06.2010 13:27:50
Thread-ID: 1161234
2 Beiträge
Anzeige
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
Bilder in Zelle einfügen
Armin

Hallo,
ich füge mit folgendem Code Bilder aus einem Verzeichnis in Excel-Zellen untereinander ein:
Set pct = ActiveSheet.Pictures.Insert(strVerzeichnis & "\" & strDatei)
Wenn ich die Bilder z. B. 100 Stück aus einem Verzeichnis mit je 2 MB einfüge, wird die Excel-Datei zieml...
27.04.2011 00:19:02
Thread-ID: 1211877
3 Beiträge
Alle Bilder im Sheet auf Originalgröße setzen
Gogs

Hallo,
ich habe viele Excel-Tabellen mit jeweils einigen Bildern drin.
Viele dieser Bilder wurden mal den Arbeitsblättern "gezogen" oder "gestaucht".
Jetzt sollen aber alle wieder auf die Originalgröße zurückgesetzt werden.
Um ein entsprechendes Makro zu erstellen, das ich dann...
28.02.2013 13:22:06
Thread-ID: 1301524
2 Beiträge
Bild in aktive Zelle einfügen
Albert

Hallo zusammen,
ich verwende folgenden Code, um ein Bild entweder im Hochformat bzw. im Querformat einzufügen.
Was allerdings nicht funktioniert ist die Position.
Vielleicht wisst ihr eine Lösung?
Option Explicit
Dim Bild As Variant
Private Sub Ok_Click() Dim Location As...
18.06.2013 15:41:23
Thread-ID: 1318375
5 Beiträge
Anzeige
benannte Bilder per Makro einfügen.
Simon

Hallo Zusammen,
mit folgendem Makro füge ich derzeit semi-automatisch Bilder in eine Exceldatei ein:

With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Dim srcName As String
ActiveCell.Select
Select...
11.07.2013 17:05:42
Thread-ID: 1322110
7 Beiträge
Bilder in Zellen einfügen
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...
17.12.2013 07:33:45
Thread-ID: 1342793
6 Beiträge
Bilder durch Link in Zelle anzeigen-OHNE EINFÜGEN!
Michael

Hallo Zusammen,
dies ist mein erster Beitrag in einem Forum, bisher bin ich immer fündig geworden, diesmal ist es zum verzweifeln.
Zielsetzung:
In einer Tabelle werden Produkte beschrieben, in einer Spalte X ist der Link eines Produkts zu seinem Bild. In der Spalte Y soll ein kleine...
22.12.2013 13:37:22
Thread-ID: 1343327
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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