Office: (Office 2003) PDF, TIF Vorschau

Micha_DU · 14. Dezember 2010

ich habe für mich herausgefunden, das es garnicht funktioniert
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann macht Benny wohl ganz großen Mist... der aber funktioniert.

und

dann bin ich damit überfordert, komme nicht dahinter
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

sagt ja wieder alles... hab nicht umsonst gefragt, ob da wirklich nur ShowDocument steht.

Aber ich bin für Benny´s Beispiel dankbar, weil ich in einer Anwendung hier auch mal testen will, wie die direkte Anzeige von PDF´s im Formular ausschaut im Vergleich zum Aufruf im Acrobat Reader über eine Schaltfläche.

CptChaos · 14. Dezember 2010

Sorry, aber das kann ich so fast nicht stehen lassen...

Ist das Formular in dem sich das Steuerelement mit der Bezeichnung OLEControl befindet offen?
Ist dieses Control sichtbar und aktiviert damit es überhaupt den Fokus bekommen kann?

Übrigens eine Premiere... Du bist der erste, der es auf meine Ignore-Liste geschafft hat Erich...
Überleg Dir warum... aber für sowas ist mir meine Zeit zu Schade!

Erich290607 · 15. Dezember 2010

Hallo @Alle

Benny, Ignore-Liste
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

was ist das Bitte?

habe es nun doch hinbekommen, bis auf die tif Dateien die zeigt er mir nur als Symbol (Irfan) und wie kann ich das auf eine lesbare größe bekommen Bspw. Click auf das OleObjekt soll um x% vergrößern

mit doppelklick werden die Dateien aufgerufen

ich hatte zunächst das falsche Objekt auf dem Formular, bei mir musste es das gebundene OLEControl sein.

Code:

Private Sub Form_Current()
LoadDocPic
ShowDocument Me!DocFile, Me!DokAnzeige

'Me!cmdViewer.Enabled = ReadFile(Nz(Me!DocFile, ""), False)

End Sub

Public Sub ShowDocument(DocFile As String, DokAnzeige As Control)
On Error GoTo ShowDocument_Err

ShowDocument_Main:

With DokAnzeige
.Visible = True
.SetFocus
.SourceDoc = DocFile
.Action = acOLECreateEmbed
.UpdateOptions = acOLEUpdateAutomatic
.SizeMode = acOLESizeZoom
End With

ShowDocument_End:
Exit Sub

ShowDocument_Err:
Dim errMsg As String
Select Case Err.Number
Case 2101
errMsg = "Das angegebene Dokument ist nicht (mehr) vorhanden." & vbNewLine & _
"Bitte Pfad- und Dateiangabe prüfen."
OLEControl.Visible = False
Case Else
errMsg = Err.Number & "-" & Err.Description
End Select

MsgBox errMsg, vbExclamation, "Error in ShowDocument"
Resume ShowDocument_End

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2003) PDF, TIF Vorschau

PDF, TIF Vorschau

PDF, TIF Vorschau

PDF, TIF Vorschau - Similar Threads - PDF TIF Vorschau

pdf drucken mit button in excel einfügen

Excel Tabellenblatt als PDF speichern unter Vorgabe Dateinamen aus einer Zelle

PDF mit Word öffnen

Links gehen beim umwandeln in PDF verloren

[VBA] PDF laden und bestimte dinge finden

geschlossene .xlsm zu .pdf konvertieren

XY-Diagramm-Grafik mit zusätzlichen Daten erweitern