Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1840to1844
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
Inhaltsverzeichnis

Bilder aus Zwischenablage einfügen

Bilder aus Zwischenablage einfügen
22.07.2021 19:09:48
oraculix
Hallo
Ich möchte gerne ca. 3000 Bilder aus der Zwischenablage in eine Leere Tabelle Einfügen.
Das Problem ist wenn ich einfügen klicke werden die Bilder untereinander eingefügt mit dem dazugehörigen Hyperlink.
Aber die Bilder sollen Nebeneinander eingefügt werden immer 4 Stück in eine Reihe
dann 1 Zelle darunter die die nächsten 4 bis alle 3000 Bilder mit dem dazugehörigen Namen Hyperlink eingefügt sind.
Macro holt aus Zwischenablage die Bilder und fügt sie in 4er Reihen untereinader ein
Geht das?

Sub Einfügen()
'keine Ahnung wie ich dem Makro beibringe das er die Bilder
'nebeneinander in 4er Schritten einfügt
End Sub
Danke
Hier die Abgespeckte Tabelle
https://www.herber.de/bbs/user/147263.xlsm
Gruß
Oraculix

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder aus Zwischenablage einfügen
23.07.2021 10:08:55
Rudi
Hallo,
wie packst du 3000 Bilder in die Zwischenablage?
Gruß
Rudi
AW: Bilder aus Zwischenablage einfügen
23.07.2021 10:57:46
oraculix
Hallo
Auf der Htmlseite alles markieren und kopieren mit Strg+C und dann mit Strg+V einfügen.
AW: Bilder aus Zwischenablage einfügen
23.07.2021 12:10:12
Rudi
Hallo,
dann sind sie ja nicht mehr in der Zwischenablage.
Denkbar wäre eine Schleife über alle Shapes und neu positionieren.
Schema:

Sub aaaa()
Dim s As Shape, r As Integer, c As Integer
r = 2
c = 0
Application.ScreenUpdating = False
For Each s In ActiveSheet.Shapes
c = c + 2
With s
.Top = Cells(r, c).Top
.Left = Cells(r, c).Left
End With
If c = 8 Then
r = r + 7
c = 0
End If
Next
End Sub
Gruß
Rudi
Anzeige
AW: Bilder aus Zwischenablage einfügen
23.07.2021 14:43:18
oraculix
Ja Vielen Dank genau so!
Nur noch ein Problem die Titel der Bilder werden irgendwo abgelegt nur nicht unter dem Bild.
Manche Titel sind überhaupt nicht zu sehen.
Hast Du da auch noch ne Idee wie ich das noch einbauen könnte in Deinen Genialen VBA Code?
Danke
Gruß
Oraculix
AW: Bilder aus Zwischenablage einfügen
24.07.2021 19:55:47
Rudi
Hallo,

Sub aaaa()
Dim s As Shape, r As Integer, c As Integer, i As Integer
Dim rng As Range
Set rng = ActiveSheet.Columns(4).SpecialCells(xlCellTypeConstants)
i = 1
r = 2
c = 0
Application.ScreenUpdating = False
For Each s In ActiveSheet.Shapes
c = c + 2
i = i + 1
With s
.Top = Cells(r, c).Top
.Left = Cells(r, c).Left
End With
Rows(r).RowHeight = s.Height
rng.Areas(i).Cut Cells(r, c).Offset(1)
If c = 8 Then
r = r + 3
c = 0
End If
Next
End Sub
Gruß
Rudi
Anzeige
AW: Bilder aus Zwischenablage einfügen
27.07.2021 11:07:52
oraculix
Danke für Deine Mühe!
Wenn ich es auf meine Tabelle Übertrage dann kommt ein Fehler!
Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler
rng.Areas(i).Cut Cells(r, c).Offset(1) Dieser Code wird dann Gelb Markiert
Gruß
Oraculix
AW: Erledigt Danke
27.07.2021 12:56:11
oraculix
Hat sich erledigt Danke jetzt geht es !!!
Gruß
Oraculix
kost fast nix

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige