Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1236to1240
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
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder in Zellen einlesen und fixieren

Bilder in Zellen einlesen und fixieren
Christina
Hallo,
in Spalte A ab A2 stehen Artikelnr, in Spalte E Bildnamen, die sich aus der Artikelnr & „.jpg“
gebildet werden. Die Bilder selbst sind im Ordner C:\Bilder gespeichert.
Nun sollen die Bilder in Spalte D ab D2 eingelesen werden und die Bilder der Zellgröße angepasst und von der Zellposition abhängig sein.
Wie geht man da am sinnvollsten vor?
Gruß
Christina Verena

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

Betreff
Benutzer
Anzeige
AW: Bilder in Zellen einlesen und fixieren
20.11.2011 23:23:02
Josef

Hallo Christina Verena,
das geht z. B. so.
Sub importPictures()
  Dim objPic As Picture
  Dim rng As Range
  Dim strPath As String
  
  strPath = "E:\Bilder\Diverses\Test" 'Pfad - Anpassen!
  
  If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
  
  With Sheets("Tabelle3") 'Tabellennname - Anpassen!
    For Each rng In Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
      If Dir(strPath & rng & ".jpg", vbNormal) <> "" Then
        Set objPic = .Pictures.Insert(strPath & rng & ".jpg")
        With objPic
          .ShapeRange.LockAspectRatio = msoTrue
          .Placement = xlMoveAndSize
          .Top = rng.Top
          .Height = rng.Height
          .Left = rng.Offset(0, 3).Left
        End With
      End If
    Next
  End With
  
  Set objPic = Nothing
End Sub



« Gruß Sepp »

Anzeige
AW: Bilder in Zellen einlesen und fixieren
21.11.2011 09:27:50
Christina
Hallo Sepp,
das Programm funktioniert super. Tausend Dank für Deine perfekte Lösung.
2 Zeilen sind mir unklar:
.ShapeRange.LockAspectRatio = msoTrue 'Bildproportion erhalten
.Placement = xlMoveAndSize 'Platzierung bzw. Positionierung soll bewegt und in der Größe angepasst werden?
Ist das so wie ich mir das in den Kommentaren erkläre?
Einen schönen Tag.
Gruß
Christina Verena
AW: Bilder in Zellen einlesen und fixieren
21.11.2011 17:07:34
Josef

Hallo Christina Verena,
".ShapeRange.LockAspectRatio = msoTrue 'Bildproportion erhalten" - richtig das Seitenverhältnis bleibt fix.
".Placement = xlMoveAndSize 'Platzierung bzw. Positionierung soll bewegt und in der Größe angepasst werden?" - nicht ganz, das entspricht der Option "Von Zellposition und -größe abhängig".

« Gruß Sepp »

Anzeige
Danke
21.11.2011 17:24:22
Christina
Hallo Sepp,
ich danke Dir für die Richtigstellung meiner Interpretation.
Einen schönen Abend.
Gruß
Christina Verena

325 Forumthreads zu ähnlichen Themen

An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
Anzeige
VBA: Bild an Zelle anhängen
Franz

Hallo Fachleute,
kann man ein Bild per VBA an eine bestimmte Zelle anhängen?
So kann ich ein Bild verschieben:
ActiveSheet.Shapes("Picture 3").IncrementLeft 50
ActiveSheet.Shapes("Picture 3").IncrementTop 50
Es soll aber bei Auftreten eines bestimmten Change-Ereignisses an d...
28.10.2008 11:53:00
Thread-ID: 1019873
3 Beiträge
Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
Anzeige
Bild in Zelle einfügen
ray

Hallo,
hallo, ich möchte in einer Zelle ein Bildanzeigen/einfügen. Es liegt aber vor allen Zellen.
Viele Grüße aus dem schneeweißen Hamburg
Ray
21.11.2008 08:25:00
Thread-ID: 1026601
9 Beiträge
Fotogrösse an Zellen anpassen per Makro
Florian

Hi,
habe eine Makro die .bmp-Dateien in ein Worksheet importiert. Leider ist die Grösse jrdesmal unterschiedlich. Kann ich die Bildgrösse eindeutig an den Zellrändern ausrichten (also z.B. Bild immer von Range "B2 - C5" (Äquivalent dem Benutzen der Alt-taste manuell)?
Danke,
Gruss F...
25.02.2009 15:16:42
Thread-ID: 1053991
4 Beiträge
Userform automatisch an Bildschirmgröße anpassen
Krügner

Hallo,
könnt Ihr mir bitte noch einmal helfen. Ich bin blutiger VBA-Laie. Ich habe eine Userform kreiert. Sie soll auf verschiedenen Bildschirmen (17, 15, 19 Zoll) angewendet werden. Wie bekomme ich eine automatische Anpassung auf die verschiedenen Bildschirmgrößen und Auflösungen hin. Vers...
18.03.2009 09:02:15
Thread-ID: 1061275
4 Beiträge
Internetbild in Zelle anzeigen
stef@n

Hallo zusammen
bin auf der Suche nach einer Möglichkeit, ein Bild aus dem Internet in einer Zelle anzeigen zu lassen.
Ich habe es mit einem Hyperlink probiert z.b.
src="http: //www.google.de/intl/de_de/images/logo.gif" />
(Leerzeichen nach http: damit das Logo hier im Thre...
21.05.2009 15:50:09
Thread-ID: 1076569
9 Beiträge
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

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