Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1856to1860
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
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PDF Datei einfügen

PDF Datei einfügen
21.11.2021 09:22:42
Florian
Hi Leute,
mit diesem Code füge ich PDF-Dateien in meine Excel-Arbeitsmappe ein:

Sub AnlagenEinfuegen()
Dim Dateiname
Dim Pfad
Pfad = ThisWorkbook.Path
Dateiname = Application.GetOpenFilename(filefilter:="PDF-Dateien (*.pdf), *.*)", Title:="Anlage auswählen")
If Dateiname = "Falsch" Then
MsgBox "Keine Datei ausgewählt!"
Else
If ActiveSheet.Name = "Anlagen" Then
ActiveSheet.OLEObjects.Add(Filename:=Dateiname, Link:=False, DisplayAsIcon:=True, IconFileName:=Pfad & "PDF.ico", IconIndex:=0, IconLabel:=Dateiname).Select
Else
MsgBox "Bitte wechseln Sie zuerst auf das Tabellenblatt 'AnlagenÄ und wählen Sie eine leere Zelle aus.", vbInformation, "Anlage einfügen"
End If
End If
End Sub
Dabei habe ich zwei Probleme:
1. Das PDF-Icon wird in der Anlage nicht angezeigt.
2. Wie kann ich nur den Dateinamen und nicht den ganzen Pfad in der Anlage anzeigen lassen?
Danke euch!! :)

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDF Datei einfügen
21.11.2021 11:24:20
volti
Hallo Florian,
hier eine Idee, um nur den Dateinamen anzeigen zu lassen.
Ich habe hier grad kein PDF-Programm, aber wenn Du die Icon-Angabe weglässt, sollte das entsprechende Icon angezeigt werden.
Ansonsten musst Du auch den Pfad und den Dateinamen des Icons korrekt angeben, also PDF.ICO suchen lassen und wenn gefunden, diese Angaben einbauen.
Code:



[Cc][+][-]



Option Explicit

Sub AnlagenEinfuegen()

  Dim Dateiname
  Dim Pfad
  Dim sArr() As String

  Pfad = ThisWorkbook.Path
  Dateiname = Application.GetOpenFilename(filefilter:="PDF-Dateien (*.pdf), *.*)", Title:="Anlage auswählen") _
            

  If Dateiname = "Falsch" Then

     MsgBox "Keine Datei ausgewählt!"

  Else

     If ActiveSheet.Name = "Anlagen" Then

        sArr = Split(Dateiname, "\")
        ActiveSheet.OLEObjects.Add(Filename:=Dateiname, link:=False, DisplayAsIcon:=True, _
        IconIndex:=0, IconLabel:=sArr(UBound(sArr))).Select

     Else

        MsgBox "Bitte wechseln Sie zuerst auf das Tabellenblatt      ' AnlagenÄ und wählen Sie eine _"
                leere Zelle aus.", vbInformation, "Anlage einfügen""

     End If

  End If

End Sub
viele Grüße
Karl-Heinz

Anzeige
AW: PDF Datei einfügen
21.11.2021 12:12:28
Florian
Wenn ich das hier rauslasse, sehe ich nur ein komplett weißes Feld auch ohne Text nach dem einfügen:

IconFileName:=Pfad & "PDF.ico"
Zudem ist dann meine Datei beschäftigt und kann nicht mehr repariert werden.
AW: PDF Datei einfügen
21.11.2021 12:25:25
volti
Hast Du auch das Komma mit weggelassen?
Gruß
KH
AW: PDF Datei einfügen
21.11.2021 13:59:25
Florian
Ja, also habe es schon syntaktisch Korrekt rausgenommen. So sieht es jetzt aus:

ActiveSheet.OLEObjects.Add(Filename:=Anlage, Link:=False, DisplayAsIcon:=True, IconIndex:=0, IconLabel:=strDateiname).Select

AW: PDF Datei einfügen
21.11.2021 19:45:40
Franzl
Hallo Excelianer,
diesen Thread habe ich auch getestet und bin eigentlich überrascht, wie einfach sowas geht.
Was mir aufgefallen ist, es ist zwar schön, dass ein Textfeld eingefügt wird mit Icon und den Namen der Datei, aber würde das auch machbar sein, dass sozusagen in der Zelle hinter dem Textfeld oder mit dem Textfeld der Link zur Datei eingefügt wird, damit man die Datei auch schnell wieder findet?
Wie schaut das aus, wenn dann der Link zur Datei zwar vorhanden ist, aber der Quellordner hat sich im Namen oder Verzeichnisort geändert? gäbe es da auch eine Lösung?
es grüßt
Franzl
Anzeige
AW: PDF Datei einfügen
22.11.2021 09:49:54
Oberschlumpf
Hi Florian,
versuch es mal hiermit:

Sub AnlagenEinfuegen()
Dim Dateiname
Dim Pfad
Dim lstrSplit() As String
Pfad = ThisWorkbook.Path
Dateiname = Application.GetOpenFilename(filefilter:="PDF-Dateien (*.pdf), *.*)", Title:="Anlage auswählen")
If Dateiname = "Falsch" Then
MsgBox "Keine Datei ausgewählt!"
Else
If ActiveSheet.Name = "Anlagen" Then
lstrSplit = Split(Dateiname, "\")
ActiveSheet.OLEObjects.Add(Filename:=Dateiname, Link:=False, DisplayAsIcon:=True, IconFileName:=Dateiname, IconIndex:=0, IconLabel:=lstrSplit(UBound(lstrSplit))).Select
Else
MsgBox "Bitte wechseln Sie zuerst auf das Tabellenblatt 'AnlagenÄ und wählen Sie eine leere Zelle aus.", vbInformation, "Anlage einfügen"
End If
End If
End Sub
Nun wird nur der Dateiname angezeigt.
Aber dass auch ein PDF-Icon gezeigt wird, hab ich nicht hinbekommen.
Ich bin mir zwar nicht sicher, glaube aber, dass das auch nicht geht.
Hast du deinen Code anstelle mit DisplayAsIcon:=True auch mal mit DisplayAsIcon:=False ausprobiert?
Mit Verwendung von False wird nämlich die ganze erste Seite der zuvor ausgewählten PDF-Datei angezeigt - False wieder geändert auf True zeigt wieder nur ein kleines Symbol.
Hilfts?
Ciao
Thorsten
Anzeige
AW: PDF Datei einfügen
22.11.2021 17:23:09
Florian
Auf False kann ich nicht setzen, da es sonst sehr unübersichtlich wird mit den vielen Anlagen ;)
AW: PDF Datei einfügen
22.11.2021 17:54:59
Oberschlumpf
a) du hast mich nich verstanden
mit True auf False und wieder zurück meinte ich, dass DisplayAsIcon "meint": True = zeig mich als kleines Symbol , False = zeig mich als erste Seite der Datei
Und das hat wahrsch so gar nix damit zu tun, dass ein Dateityp-Icon mit oder nicht mit angezeigt werden soll!
b) hast du meinen Code eigtl ausprobiert?!?
Wenn nein, wieso nich?
Zumindest fehlt eine Antwort von dir, ob mein Code helfen konnte oder nich...
AW: PDF Datei einfügen
24.11.2021 09:49:58
Florian
Sorry für die späte Rückmeldung. Es klappt leider nicht, wenn ich diesen Code verwende.
Hab es für mich jetzt abgehakt, bevor ich noch lange suche. So wichtig ist es nicht. Dann werden die Anlagen halt ohne dem PDF Icon angezeigt ;)
Anzeige
AW: PDF Datei einfügen
24.11.2021 09:56:44
Oberschlumpf
Danke für die abschließende Antwort, auch wenn ich mich frage, was genau denn nich geklappt hat? denn das Ziel: "zeige nur Dateiname" wird mit meinem Code (und auch von einem anderen Antworter) doch erreicht....egal....du hast fertig...ich dann auch
AW: PDF Datei einfügen
22.11.2021 19:37:17
Franzl
Hallo noch einmal ...
wahrscheinlich ist meine Anfrage hier "untergegangen" oder muss ich eine Extra-anfrage hier stellen?
Hallo Excelianer,
diesen Thread habe ich auch getestet und bin eigentlich überrascht, wie einfach sowas geht.
Was mir aufgefallen ist, es ist zwar schön, dass ein Textfeld eingefügt wird mit Icon und den Namen der Datei, aber würde das auch machbar sein, dass sozusagen in der Zelle hinter dem Textfeld oder mit dem Textfeld der Link zur Datei eingefügt wird, damit man die Datei auch schnell wieder findet?
Wie schaut das aus, wenn dann der Link zur Datei zwar vorhanden ist, aber der Quellordner hat sich im Namen oder Verzeichnisort geändert? gäbe es da auch eine Lösung?
es grüßt
Franzl
Anzeige
OT
23.11.2021 06:45:05
Oberschlumpf
Hi Franzl
ja, ich denke, du hast recht - du solltest einen "eigenen" Beitrag erstellen.
Ich, und ich denke, auch viele Andere haben deine erste Anfrgae hier gelesen.
Aber deine Fragen haben mit dem eigentlichen Beitrag hier nicht so viel zu tun, und zumindest ich wüsste für dich auch keine Antworten.
Du hattest allerdings auch das hier geschrieben: dass ein Textfeld eingefügt wird mit Icon und den Namen der Datei
Das lässt mich vermuten, dass du einen Code entwickeln konntest, der eben auch das Icon im Symbol mit Dateiname erscheint.
Ich denke, Florian würde sich freuen, wenn du auf seine Frage antwortest und uns diesen Code zeigst.
Ciao
Thorsten
Anzeige

108 Forumthreads zu ähnlichen Themen

Grafik in Kopfzeile gelöscht; wie wieder einfügen?
abdipost

Hallo zusammen,
habe aus einem Tabellenblatt in einer Excel-Mappe die Grafik aus der Kopfzeile gelöscht.
Die Grafik habe ich nicht als Datei vorliegen.
Wie bekomme ich die wieder rein?
In den anderen Tabellenblättern ist sie noch enthalten.
Danke für Eure Hilfe
16.06.2009 15:36:17
Thread-ID: 1081936
9 Beiträge
Anzeige
Bilder automatisch einfügen in Zelle
SimonB

Hallo zusammen,
ich habe ein Problem in Excel, welches ich auch durch diverse VBA-Makros aus dem Netz nicht lösen kann:
Ich möchte in der Spalte A eines Tabellenblattes über ein Makro ein JPG einfügen lassen, welches durch eine immer 6-stellige Artikelnummer in der Spalte H des selben B...
30.09.2009 12:57:23
Thread-ID: 1106400
8 Beiträge
Bilder per Makro in Excel einfügen
stefanseevetal

Hallo zusammen!
Ich habe ein Problem, das ich mir nicht erklären kann. Ich füge nach einer Auswahl über den untenstehenden Code ein Bild im Tabellenblatt "Deckblatt" ein. Es soll gemäß dem Code oben links eingefügt werden. Leider funktioniert dies bei einigen Computern nicht und das Bild wi...
27.10.2009 19:27:47
Thread-ID: 1112579
4 Beiträge
Anzeige
Einfügen von Bildern in Kommentar geht nicht mehr
Bildern

Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.P...
30.11.2009 15:34:28
Thread-ID: 1121036
2 Beiträge
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
Bild einfügen in Originalgrösse
Marc

Hallo
Möchte ein Bild mittels VBA so einfügen, dass die obere linke Ecke in der Zelle "B5" liegt.
Das Bild soll aber in Originalgrösse bleiben.
Mein Code sieht so aus:
Bild = Ordner & "L" & BogenNr & "_" & "2" & ".jpg"
If Bild "" Then
Set varBild =...
12.02.2010 12:00:30
Thread-ID: 1138036
7 Beiträge
Bild in Excel einfügen und Formel hinterlegen
Susanne

Hallo,
mache mal ein neues Thema auf, da es sich auch nicht mehr direkt um das vorige handelt.
Mein Problem:
Kann man ein Logo (Bild) mit einer Formel hinterlegen, damit ich wenn der Kunde xy ist, das Logo ausblende?
Also in der Kopfzeile kann ich keine Formel hinterlegen, oder...
26.04.2010 14:28:36
Thread-ID: 1153845
11 Beiträge
Bild von der userform in tabelle einfügen
der

Hallo Excelsfans,
ich habe auf einer userform ein bild (image). dieses möchte ich gern als bild in eine zelle einfügen
irgendwie so
cells(1,1).insert.picture=image1.picture
geht sowas?
gruß rocky
14.06.2010 19:14:52
Thread-ID: 1161836
3 Beiträge
Anzeige

Links zu Excel-Dialogen

Label

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