Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Bilder fest in Excel Dokument speichern

Mitglied: Jinzumia

Jinzumia (Level 1) - Jetzt verbinden

20.03.2018 um 14:40 Uhr, 549 Aufrufe, 6 Kommentare

Hallo zusammen, ich bin am rätseln...

und zwar habe ich mit folgendem Programm Bilder automatisiert in Excel eingebunden...

Sub BilderImport()
'
' Bilder werden in die Spalte A eingefügt. Die Bilder werden auf die
' eingestellte Spaltebreite skaliert. Die Zeilenhöhe wird an die
' skalierte Bildhöhe angepasst
'

'* * Dimensionierung der Variablen
Dim strVerzeichnis$, strDatei$
Dim pct As Picture
Dim lngZeile As Long 'Zeile zum Eintragen der Bilder
Dim lngSpalte As Long 'Spalte zum Eintragen der Bilder
Dim varBreite As Variant 'Spaltenbreite
Dim varHoehe As Variant


' Verzeichnis und Dateinamen definieren und auslesen
strVerzeichnis = "F:\Pic"
strDatei = Dir(strVerzeichnis & "\*.jpg")

'
Startzeile + Spalte festelegen
lngZeile = 5
lngSpalte = 1

' Ermittlung der Spaltenbreite
varBreite = Columns("A:A").Width

Cells(lngZeile, lngSpalte).Select
Cells(lngZeile, lngSpalte + 1) = strDatei ' schreiben Dateinamen
Set pct = ActiveSheet.Pictures.Insert(strVerzeichnis & "\" & strDatei)

With ActiveSheet.Shapes("Picture 1")
'
Auslesen der Breite
ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.LockAspectRatio = msoTrue

' Bild auf aktuelle Spaltenbreite skalieren
Selection.ShapeRange.Width = varBreite

'
Zeilenhöhe festlegen
varHoehe = ActiveSheet.Shapes("Picture 1").Height
Rows(lngZeile).RowHeight = varHoehe
End With

' Zähler für Shape definieren
shp = 2

'
Zeilenzähler erhöhen
lngZeile = lngZeile + 1


' Bild 2 bis n durchlaufen
Do While strDatei <> ""
strDatei = Dir()
If strDatei = "" Then Exit Do
Cells(lngZeile, lngSpalte).Select
Set pct = ActiveSheet.Pictures.Insert(strVerzeichnis & "\" & strDatei)
ActiveSheet.Shapes("Picture " & shp).Select
Cells(lngZeile, lngSpalte + 1) = strDatei ' schreiben Dateinamen
Selection.ShapeRange.LockAspectRatio = msoTrue

Selection.ShapeRange.Width = varBreite '* 5.355 'Bild auf Spaltenbreite skallieren

'
Zeilenhöhe festlegen
varHoehe = ActiveSheet.Shapes("Picture " & shp).Height
Rows(lngZeile).RowHeight = varHoehe

' Zeilenzähler erhöhen
lngZeile = lngZeile + 1

'
Shape-Zahler erhöhen
shp = shp + 1

Loop
End Sub




Sub Sammeln()
' Dimensionierung der Variablen
Dim Höhe As Integer
Dim SHöhe As Single
Dim Breite As Integer
Dim SBreite As Integer
Dim Wert1
Dim strVerzeichnis$, strDatei$
Dim pct As Picture
Dim lngZeile As Long 'Zeile zum Eintragen der Bilder


Höhe = 17
Breite = 5
SBreite = 1
SHöhe = 10
strVerzeichnis = "F:\Pic"
strDatei = Dir(strVerzeichnis & "\*.jpg")

'
Startzeile festelegen
lngZeile = 5

Cells(SHöhe, SBreite).Select
'Cells(SHöhe - 1, SBreite) = strDatei ' schreiben Dateinamen
Set pct = ActiveSheet.Pictures.Insert(strVerzeichnis & "\" & strDatei) ' einfügen Bild

With ActiveSheet.Shapes("Picture 1")
ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 84.75
'braucht nicht da mit LockAspectRatio = msoTrue proportionen beiberhalten werden
Selection.ShapeRange.Width = 113.25
End With

shp = 2

SHöhe = SHöhe + Höhe

Do While strDatei <> ""

strDatei = Dir()

If strDatei = "" Then Exit Do

Cells(SHöhe, SBreite).Select

Set pct = ActiveSheet.Pictures.Insert(strVerzeichnis & "\" & strDatei)



ActiveSheet.Shapes("Picture " & shp).Select
Selection.ShapeRange.LockAspectRatio = msoTrue

' Auslesen der Breite
MsgBox Selection.ShapeRange.Width


'
Anpassen der Größe
Selection.ShapeRange.Height = 84.75
Selection.ShapeRange.Width = 113.25
shp = shp + 1
'Cells(SHöhe, SBreite + 1) = strDatei
SHöhe = SHöhe + Höhe

If SHöhe >= 65500 Then
SBreite = SBreite + Breite
SHöhe = 2
End If

Loop
End Sub


Alles gut soweit! Nur werden die Bilder als Link abgespeichert. Das heißt liegen die Bilder im Netzwerk ist das Excel Dokument nicht zu gebrauchen.

Wie bekomme ich die Bilder in der Datei abgespeichert ??

THX for Help







Mitglied: Meierjo
20.03.2018 um 18:02 Uhr
Hallo

Ein bisschen Googeln bringt dich auf diese Seite.
Hier steht, dass deine Einfügemethode "veraltet" ist, und ab Excel 2010 die Bilder als Verknüpfung einfügt.

Der Code, mit welchem due die Bilder richtig importierst, steht auch dort.

Gruss
Bitte warten ..
Mitglied: Jinzumia
21.03.2018 um 10:44 Uhr
Danke schonmal für den ersten Hinweis.

Bekomme es aber nicht zum Laufen ...
pfad - Klicke auf das Bild, um es zu vergrößern
Bitte warten ..
Mitglied: colinardo
21.03.2018 um 14:17 Uhr
Tipp: Doppelt gemoppelter Backslash .

Grüße Uwe
Bitte warten ..
Mitglied: Jinzumia
21.03.2018 um 14:59 Uhr
Ach jo habs dann auch gesehen.

Problem.. Datei wird trotzdem nicht gefunden ... argh
Bitte warten ..
Mitglied: Jinzumia
21.03.2018 um 15:35 Uhr
Kurze Info:

gebe ich es so ein:

ActiveSheet.Shapes.AddPicture _
"C:\Bilder\1010213.png", _
False, True, 100, 100, 70, 70

geht es.
Bitte warten ..
Mitglied: colinardo
21.03.2018, aktualisiert um 18:36 Uhr
Zitat von Jinzumia:

Ach jo habs dann auch gesehen.

Problem.. Datei wird trotzdem nicht gefunden ... argh
Kein Wunder dein Range rw verweist ja auf eine ganze Row nicht nur auf eine Zelle .
01.
for each cell in Selection.Cells
02.
    'hier gehts weiter mit cell.Value als Wert jeder Zelle der Auswahl.
03.
Next
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Excel Dokument als PDF speichern
gelöst Frage von TIM589VB for Applications2 Kommentare

Ich habe mir ein kleines Rechnungsprogramm gebastelt und würde das ganze am Ende als PDF automatisch abspeichern lassen. Leider ...

Microsoft Office

Word Dokument (vorausgefüllte Formulare) aus Excel Tabelle generieren

Frage von Server4AlleMicrosoft Office1 Kommentar

Hallo, gibt es eine Möglichkeit aus einer Excel Tabelle (Datenquelle) heraus mehrere Word Dokument (vorausgefüllte Formulare) zu generieren? Oder ...

Microsoft Office

Excel-Dokument zu PDF umwandeln funktioniert nicht korrekt

gelöst Frage von imebroMicrosoft Office10 Kommentare

Hallo, ich habe ein Formular in Excel 2010 erstellt (.xlsx). Dieses Formular enthält gepunktete Linien, die auch genau so ...

Microsoft Office

Excel-Dokument in PowerPoint-Dokument an verschiedenen Stellen in verschiedenen Ansichten einfügen (als Verknüpfung)

Frage von SarekHLMicrosoft Office7 Kommentare

Hallo zusammen, diesmal habe ich mal eine private Frage im Auftrag meiner Frau. Die soll für ihren Chef bis ...

Neue Wissensbeiträge
Windows 7

Südkoreas Regierung setzt auf Linux, um Windows 7 Clients abzulösen

Information von kgborn vor 9 StundenWindows 71 Kommentar

Kleiner Infosplitter zum Wochenanfang: Während München (LiMux) und die niedersächsische Finanzverwaltung von Linux auf einen Windows 10-Client (und Office) ...

Internet
Big Brother is Watching You
Information von transocean vor 20 StundenInternet

Moin, die Datenkrake Google fischt Informationen über Einkäufe ab, die GMail Nutzer im Netz tätigen. Gruß Uwe

Datenschutz
TeamViewer gehackt !
Information von aqui vor 22 StundenDatenschutz4 Kommentare

Hat schon einen Grund warum verantwortungsvolle Admins diese Software nicht einsetzen und sie in den meisten größeren Firmen aus ...

Netzwerke

Cisco Security Warnung für SoHo Switches der SG Serie

Information von aqui vor 1 TagNetzwerke3 Kommentare

Update auf eine aktuelle Version wäre also eine gute Idee ! ;-)

Heiß diskutierte Inhalte
Netzwerkgrundlagen
Netzwerk IP Kamera nur an einem Rechner sichtbar
Frage von Lutz-ReNetzwerkgrundlagen8 Kommentare

Guten Abend Ich hab in einem IP 4 Netzwerk mit gleichen Subnetz zwei Kameras mit festen IP Adresse und ...

Verschlüsselung & Zertifikate
Verschlüsselungsmethoden für Netzwerkdateien im Firmennetzwerk
Frage von kafipauseVerschlüsselung & Zertifikate7 Kommentare

Hallo, ich suche für meine Firma eine Verschlüsselungssoftware, um einige Ordner auf einem Fileserver zu verschlüsseln und verschiedenen Gruppen ...

Microsoft Office
Office 2010, 2013, 2016 und 2019 auf einem PC ohne Dualboot?
gelöst Frage von RT81-2019Microsoft Office6 Kommentare

Office 2010, 2013, 2016 und 2019 auf einem PC ohne Dualboot? In wie fern ist es möglich, das 2010 ...

LAN, WAN, Wireless
OpenVpn - Options error: Maximum option line length (256) exceeded - Editor Notepad++
Frage von mike7050LAN, WAN, Wireless5 Kommentare

Hallo zusammen, ich komme nicht mehr weiter leider: Ich habe OpenVPN auf zwei Windows 10 Pro Notebooks eingerichtet. Notebook ...