Új hozzászólás Aktív témák

• #32331 Delila_1 veterán butch3r #32330

  Új Válasz 2016-08-17 14:10:15 #32331

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz butch3r #32330 üzenetére

  Konvertálhatod a diagramjaidat pl. gif-be, majd beilleszted azokat a bemutatódba a kedved szerinti helyre. A gif-ek szélessége és magassága megegyezik a diagramok méreteivel.

  Sub Diagram_Konvertalas()
Dim szamlalo As Integer, x As Integer, diagram As Object

For x = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(x).Activate
Set diagram = Selection.Chart
diagram.Export Filename:=ThisWorkbook.Path & "\" & _
"Diagram " & szamlalo + 1 & ".gif", FilterName:="gif"
szamlalo = szamlalo + 1
Next
End Sub

Új hozzászólás Aktív témák