Thema Datum  Von Nutzer Rating
Antwort
Rot Makro: Diagramm über CommandButton in PDF speichern
 02.06.2015 13:04:17 Ralf
NotSolved

Ansicht des Beitrags:
Von:
Ralf		 Datum:
02.06.2015 13:04:17		 Views:
1523		 Rating:
     
Antwort:
  Ja
Thema:
Makro: Diagramm über CommandButton in PDF speichern

Hallo,

 

ich möchte gerne über einen CommandButton im Userform ein Diagramm in PDF speichern:

 

Private Sub CommandButton10_Click()

Dim pdfName As String
Dim pdfOpenAfterPublish As Boolean


        ActiveSheet.ChartObjects("Diagramm 3").Activate
        ActiveChart.ChartArea.Select

If MsgBox("       Soll die PDF-Datei nach dem Erstellen angezeigt werden?", vbYesNo, " PDF anzeigen?") = vbYes Then pdfOpenAfterPublish = True

              pdfName = Application.GetSaveAsFilename(InitialFileName:=Environ("USERPROFILE") & "\Desktop", fileFilter:="PDF-Dateien (*.pdf), *.pdf")
              If pdfName = "Falsch" Then Exit Sub
              

            
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
                                  Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
                                  OpenAfterPublish:=IIf(pdfOpenAfterPublish, True, False)

End Sub

 

 

Das Diagramm heißt definitiv "Diagramm 3"! Er gibt mir aber immer wieder nur eine leere PDF Seite aus... Kann mir jmd helfen?! :) 

 

 

Viele Grüße

Ralf

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro: Diagramm über CommandButton in PDF speichern
 02.06.2015 13:04:17 Ralf
NotSolved