Thema Datum  Von Nutzer Rating
Antwort
02.08.2016 20:39:45 David
NotSolved
03.08.2016 12:08:38 David
NotSolved
03.08.2016 13:46:16 Gast75636
NotSolved
03.08.2016 14:00:48 David
NotSolved
03.08.2016 14:20:58 David
NotSolved
03.08.2016 14:56:31 Gast70980
NotSolved
03.08.2016 15:01:39 David
NotSolved
03.08.2016 16:24:55 Gast80961
NotSolved
Rot Mehrere Tabellenblätter PDFn
 03.08.2016 16:29:02 Gast71937
NotSolved
03.08.2016 18:05:38 David
NotSolved
05.08.2016 10:40:30 Gast27929
NotSolved

Ansicht des Beitrags:
Von:
Gast71937		 Datum:
03.08.2016 16:29:02		 Views:
722		 Rating:
     
Antwort:
  Ja
Thema:
Mehrere Tabellenblätter PDFn

Hallo,

 

hier der Code mit dem Teil der die Diagramme wieder auf die Blätter schiebt.

 

Wie gesagt, wie es mit ausgeblendeten Blätter etc. läuft weis ich nicht...

Dim sh As Worksheet
Dim d As ChartObject
Dim s() As String
Dim x As Integer
Dim i As Integer

For Each sh In Sheets
    For Each d In sh.ChartObjects
        Set d = sh.ChartObjects(1)
        ReDim Preserve s(x)
        s(x) = sh.Name & ";" & d.Name
        d.Chart.Location xlLocationAsNewSheet, sh.Name & ";" & d.Name
        x = x + 1
    Next d
Next sh

Sheets(s).Select
    
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\temp\Mappe.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Sheets(1).Select


For i = Sheets.Count To 1 Step -1
    If TypeName(Sheets(i)) = "Chart" Then
        s = Split(Sheets(i).Name, ";")
        Sheets(i).Location xlLocationAsObject, s(0)
    End If
Next i

 

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
02.08.2016 20:39:45 David
NotSolved
03.08.2016 12:08:38 David
NotSolved
03.08.2016 13:46:16 Gast75636
NotSolved
03.08.2016 14:00:48 David
NotSolved
03.08.2016 14:20:58 David
NotSolved
03.08.2016 14:56:31 Gast70980
NotSolved
03.08.2016 15:01:39 David
NotSolved
03.08.2016 16:24:55 Gast80961
NotSolved
Rot Mehrere Tabellenblätter PDFn
 03.08.2016 16:29:02 Gast71937
NotSolved
03.08.2016 18:05:38 David
NotSolved
05.08.2016 10:40:30 Gast27929
NotSolved