kostenloser Webspace werbefrei: lima-city

Ärger mit der chart export funktion nach office update 2016

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   losebettler1

   losebettler1 hat kostenlosen Webspace.

   22:43, 22.4.2016

   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

   

   autonomestrading hat kostenlosen Webspace.

   20:40, 19.5.2016

   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?