Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1096to1100
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
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Grafik einfügen und Position bestimmen

Grafik einfügen und Position bestimmen
Frank68
Hallo Freunde,
zunächst mein Beileid für alle, die wie ich bei diesem Wetter arbeiten müssen.
Nun zu meiner Frage: Ich möchte in einem Excelblatt per Makro jpg.-Grafiken einfügen. Die Grafik soll etwa ein A4-Blatt im Querformat einnehmen; das Excelblatt nutze ich, um eine Legende unter der Grafik einzufügen und das ganze etwas aufzuhübschen. Ich habe etwa 200 Grafiken und möchte demzufolge auch 200 unterschiedliche Tabellen generieren; das jedoch ist nicht das Problem.
Frage: Kann man die Position einer Grafik in einer Excel-Tabelle so beschreiben, das manuelle Nachbearbeitungen (per Ziehen Größe und Position verändern) entfallen?
Danke für die Hilfe!!
Frank

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

Betreff
Benutzer
Anzeige
AW: Grafik einfügen und Position bestimmen
16.08.2009 11:24:37
Frank68
Hallo Hajo, da muss ich mich erstmal durcharbeiten; danke vorerst!
Danke und noch eine Frage!
16.08.2009 12:01:25
Frank68
Danke, war genau das was ich suchte. Hast Du noch einen Tip; ich muss jetzt noch das Verzeichnis der jpeg-Dateien auslesen und in eine Liste schreiben; um eine Schleife zu programmieren.
Danke!
AW: Danke und noch eine Frage!
16.08.2009 12:03:52
Hajo_Zi
Hallo Frank, 
Option Explicit
Option Private Module
'   von Nepumuk
Private Type InfoT
hwnd As Long
Root As Long
DisplayName As Long
Title As Long
Flags As Long
FName As Long
lParam As Long
Image As Long
End Type
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As InfoT) As Long
Private Declare Function CoTaskMemFree Lib "ole32" (ByVal hMem As Long) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpStr1 As String, ByVal  _
lpStr2 As String) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pList As Long, ByVal lpBuffer  _
As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassname As  _
String, ByVal lpWindowName As String) As Long
Function GetAOrdner() As String
Dim xl As InfoT, IDList As Long, RVal As Long, FolderName As String
With xl
.hwnd = FindWindow("xlmain", vbNullString)
'        .hwnd = FindWindow("", "Auswahl")  ' Userform Auswahl
.Title = lstrcat("Bitte wählen Sie ein Verzeichnis", "")
.Flags = 1
End With
IDList = SHBrowseForFolder(xl)
If IDList  0 Then
FolderName = Space(256)
RVal = SHGetPathFromIDList(IDList, FolderName)
CoTaskMemFree (IDList)
FolderName = Trim(FolderName)
FolderName = Left(FolderName, Len(FolderName) - 1)
End If
GetAOrdner = FolderName
End Function
'   nicht verwendeter Code
'   Aufruf mit
Sub test()
StOrdner = GetAOrdner                       ' Verzeichnis auswählen
End Sub
Gruß Hajo
Anzeige
AW: Danke
16.08.2009 12:21:52
Frank68
Danke, da muss ich jetzt doch erst mal hintersteigen. Ich habe ein Verzeichnis und möchte Dateinamen auslesen und in eine Liste schreiben. Ich habe den Codes kopiert und probiert und nicht ganz verstanden. Was genau bewirkt er?
AW: Danke
16.08.2009 12:32:20
Hajo_Zi
Hallo Frank,
im ersten Beitrag wollztest Du einen Ordner auswähen, dafü mein Code. Jetzt liest es sich aber als ob eine Datei ausgewählt werden soll.
Gruß Hajo
AW: Danke
16.08.2009 12:54:11
Frank68
Hallo Hajo, ja ich habe mich mißverständlich ausgedrückt, also es geht darum, die Namen von Bilddateien, die in einem Unterordner abgelegt sind, der Reihe nach in eine Liste zu schreiben, um hiernach folgendes zu tun:
1. Dateien der Reihe nach laden und an bestimmter Stelle und mit bestimmter Größe in eine Excel-Tabelle zu laden (im Grundsatz gelöst dank Deiner Hilfe)
2. Dateien jeweils nach dem Einfügen anschließend per PDF in einen anderen Ordner schreiben.
Vielen Dank für die Hilfe.
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige