kostenloser Webspace werbefrei: lima-city


Ärger mit der chart export funktion nach office update 2016

lima-city: kostenloser WebspaceForumProgrammiersprachenBasic

  1. Autor dieses Themas

    losebettler1

    Benutzer, kostenlos WebspaceBenutzer, kostenlos WebspaceBenutzer, kostenlos Webspace Knecht

    1169 Gulden

    1 positive Bewertung
    0

    losebettler1 hat kostenlosen Webspace.

    Hallo miteinander,

    unter Office 2013 habe ich in Excel mit folgendem Code (mal mit Ausnahme von immer mal wiederkehrenden Laufzeitfehlern) einzelne Zellen als PNG exportieren können. Nach dem Update auf 2016 bekomme ich nur noch Bilder ohne Zelleninhalt.

    Sub Foto()
    Dim bb As String
    anz = Selection.Rows.Count
    
    For i = 1 To anz
    bb = ActiveCell.Address
       ActiveSheet.Range(bb).CopyPicture Appearance:=xlScreen, Format:=xlPicture
       Sheets.Add
       With ActiveSheet.ChartObjects.Add(0, 0, 235, 125).Chart
       .Paste
        .Export Filename:=ActiveWorkbook.Path & "\VOCA\cn_" & Format(Now, "YYMMDD_HHMMSS") & ".png", FilterName:="png"
        .Parent.Delete
       End With
       Application.DisplayAlerts = False
        ActiveWindow.SelectedSheets.Delete
        Application.DisplayAlerts = True
    ActiveCell.Offset(0, 1).Select
    bb = ActiveCell.Address
       ActiveSheet.Range(bb).CopyPicture Appearance:=xlScreen, Format:=xlPicture
       Sheets.Add
       With ActiveSheet.ChartObjects.Add(0, 0, 235, 125).Chart
         ActiveSheet.Paste
          .Export Filename:=ActiveWorkbook.Path & "\VOCA\de_" & Format(Now, "YYMMDD_HHMMSS") & ".png", FilterName:="png"
          .Parent.Delete
       End With
       Application.DisplayAlerts = False
        ActiveWindow.SelectedSheets.Delete
        Application.DisplayAlerts = True
    ActiveCell.Offset(1, -1).Select
    Next i
    
    
    End Sub


    Irgendwie scheitert der Code neuerdings hierbei:
    With ActiveSheet.ChartObjects.Add(0, 0, 235, 125).Chart
       .Paste
        .Export Filename:=ActiveWorkbook.Path & "\VOCA\cn_" & Format(Now, "YYMMDD_HHMMSS") & ".png", FilterName:="png"
        .Parent.Delete
       End With



    Was hat sich geändert? Kennt jemand abhilfe?
  2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

  3. autonomestrading

    Kostenloser Webspace von autonomestrading

    Benutzer, kostenlos WebspaceBenutzer, kostenlos Webspace Bettler

    161 Gulden

    8 positive Bewertungen
    0

    autonomestrading hat kostenlosen Webspace.

    autonomestrading besitzt 1 günstige Domain.

    hab nur eine "Vermutung" woran es liegen könnte.

    Hab noch ein office xp und dann ein update gemacht.
    Ursprünglich hatte es, wenn ich die die sheets als html exprotiert hab die Bilder im .png gespeichert.

    Nach dem update nur noch im .gif.

    Teste doch einfach mal im Vb-Code die Bilder mit ".gif"
  4. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?

Über lima-city

Login zum Webhosting ohne Werbung!