Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1908to1912
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
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder einfügen mit VBA

Bilder einfügen mit VBA
06.12.2022 13:44:56
M@tt
Hallo ins Forum,
ich scheitere heute an einem Problem beim Einfügen und verkleinern von Bildern.
Bilder sollen ausgehend der aktiven Zelle eingefügt werden.
https://www.herber.de/bbs/user/156554.xlsm
Im mitgeliefertem Beispiel ;-) werden die Querformatbilder an gewünschter Stelle eingefügt, bei Hochformat gelingt mir das leider nicht, hier wird dann das eingefügte Bild so abgelegt, dass die rechte obere Ecke dort bleibt, wo das "große" Bild seine rechte obere Ecke hatte. Wo steckt der Fehler.
Ich wäre für eine Lösung dankbar.
Vielen Dank für Eure Zeit,
Gruß M@tt

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

Betreff
Datum
Anwender
Anzeige
AW: Bilder einfügen mit VBA
06.12.2022 14:12:41
Nepumuk
Hallo M@tt,
kann ich nicht nachvollziehen. Bei mir werden die Bilder mit der linken oberen Ecke genau in die linke obere Ecke der Zelle abgelegt, egal ob Hoch- oder Querformat.
Gruß
Nepumuk
AW: Bilder einfügen mit VBA
06.12.2022 14:41:13
M@tt
Hallo Nepumuk,
vielen Dank für das Testen. Ich habe weiter probiert.
Das Beispielbild ist im Original 3000x4000 Pixel, das im Querformat 4000x3000 Pixel also von der tatsächlichen Größe her nicht anders. Es wird in Zelle AN 9 abgelegt?
Es hat etwas mit der Größe des Bildes zu tun, nehme ich kleinere Bilder 600x 800 funktioniert es.
Ich müsste dann wohl die Bilder vor dem Einfügen verkleinern?
Danke, Gruß M@tt
Anzeige
AW: Bilder einfügen mit VBA
06.12.2022 15:15:11
Daniel
Hi
aber das Bild wird schon in X- und Y- gleichmäßig verkleinert und nicht verzerrt?
probier mal, ob es besser geht, wenn beim Einfügen die Bilder erstmal auf Top und Left = 1 einfügst also immer oben links und das Positionieren erst dann ausführst, nachdem du die Größe geändert hast.

               Set objShape = ThisWorkbook.Sheets("Protokoll").Shapes.AddPicture( _
Filename:=.SelectedItems(ialngIndex), LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
Left:=1, Top:=1, Width:=-1, Height:=-1)
With objShape
.LockAspectRatio = msoTrue
.Height = 50
.Top =aobjImageRange(ialngIndex).Top
.Left = aobjImageRange(ialngIndex).Left
Gruß Daniel
Anzeige
Dankeschön AW: Bilder einfügen mit VBA
06.12.2022 17:10:30
M@tt
Hallo Daniel,
ja, das Bild wurde gleichmäßig verkleinert, das passte alles. Ich habe es auch an einem anderen Rechner probiert, das gleiche Ergebnis, nicht der gewünschte Einfügepunkt.
Vielen Dank für deinen Lösungsweg, es funktioniert für meine Zwecke. Das Bild wird allerdings in der Höhe vermittelt. Da ich aber den Einfügepunkt manuell festlege, ist das kein Problem.
Die Bilder werden in der Praxis an einen Bericht unten angehangen.
Vielen Dank nochmals (auch an Alle, die sich Zeit genommen und meinem Problem gestellt haben!)
Gruß M@tt

303 Forumthreads zu ähnlichen Themen

Leseschutz für Datei, mit VBA aufheben
Iro

Hallo,
folgendes Problem: ich will zwischen zwei Dateien Daten austauschen. Die A-datei soll grundsätzlich PW-geschützt werden, und zwar so, dass der User weder etwas verändern kann noch sie überhaupt öffnen. Nur wenn der User aus der B-datei mit der vorgesehenen Form Daten überträgt, soll...
21.10.2008 14:18:57
Thread-ID: 1017997
4 Beiträge
Anzeige
flexible txt-Datei öffnen mit VBA
Mike

Hey Cracks,
mittels nachfolgendem Code importiere ich .txt-Dateien ins Excel.
Da es nicht immer die gleiche txt-Datei ist, würde ich gerne die
Auswahl "flexibel" halten. Wie mach ich das?
Sub Txt1_KST_importieren() ' öffnet die exportierten Kostenstellen - Txt1_importieren Mak...
05.02.2009 15:36:31
Thread-ID: 1047405
3 Beiträge
Fehlermeldung "Objekt kann nicht entladen werden"
Nik

Hallo.
Bin am Verzweifeln.
Mein excel ist im VB-Editor offen und ich versuche, das Projekt zu speichern.
Es kommt immer wieder die Fehlermeldung, dass ich excel nicht speichern kann.
Im VB-Editor versuche ich, die Userform frmStart zu schließen.
Es kommt die Fehlermeldung La...
24.02.2009 13:59:02
Thread-ID: 1053502
2 Beiträge
Anzeige
Dateien Zählen mit VBA 2003 Mac
Jan

Hallo!
Wie erstellt mann einen Macro die die Anzahl an Dateien in einen Verzeichnis ermittelt. Dazu habe ich verschieden Beispiele gefunden die mit "FileSearch" arbeiten. Leider verwende ich Excel 2003 für Apple, wo dieser Funktion nicht vorhanden ist. Vielleicht kennt jemand einen Workarou...
23.06.2009 16:02:28
Thread-ID: 1083851
3 Beiträge
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
30.09.2009 19:49:14
Thread-ID: 1106503
2 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
01.10.2009 08:01:37
Thread-ID: 1106504
2 Beiträge
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
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
3
4
2
1
4
2
11
1
1
4
5
4
7
1
9
1
7
1
4
2
4
4
1
3
6