Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1440to1444
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
1440to1444
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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.

Anzeige
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

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
Anzeige

122 Forumthreads zu ähnlichen Themen

Zeilen einfügen - Formel übernehmen
Frank

Hallo Zusammen und einen schönen Rest-Sonntag!!!
Irgendwie stehe ich auf dem Schlauch. In Spalte A und F stehen Formeln. Jeweils in A1 und F1 eingegeben und dann runter kopiert. Nun kann es erforderlich werden, dass ich irgendwo eine Zeile einfügen muß und dann ist in der neuen Zeile keine...
12.07.2009 20:27:29
Thread-ID: 1088023
7 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
Anzeige
Bild in Excel einfügen und Formel hinterlegen
Susanne

Hallo,
mache mal ein neues Thema auf, da es sich auch nicht mehr direkt um das vorige handelt.
Mein Problem:
Kann man ein Logo (Bild) mit einer Formel hinterlegen, damit ich wenn der Kunde xy ist, das Logo ausblende?
Also in der Kopfzeile kann ich keine Formel hinterlegen, oder...
26.04.2010 14:28:36
Thread-ID: 1153845
11 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
Bild per Makro einfügen
Nico

Hallo zusammen!
Ich habe ein Problem, das mich zur Verzweiflung treibt und ihr könnt mir da bestimmt helfen:
Ich habe ich Excel 2003 ein Makro geschrieben, mit dem ich in Excel per Knopfdruck ein Bild in die Zelle B7 einfügen kann. Das hat super funktioniert. Jetzt möchte ich genau das...
27.07.2010 12:08:24
Thread-ID: 1169089
11 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
Bilderaufruf mittels sverweis
hansueli

Hallo zusammen
Eine Frage im Zusammenhang mit Sverweis:
Ist es möglich über den Sverweis einen Pfad von einem Bild so zu verknüpfen, dass dieses Bild im aktiven Exceldatenblatt (in definierter Zelle) angezeigt wird ? Oder gibt es eine besser Lösung mit einem Userform, oder eine andere L...
09.12.2010 21:45:29
Thread-ID: 1190857
5 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
6
10
3
4
4
10
1
10
3
4
2
5
18
1
4
6
5
7
2
3
3
6
11
6
5