so langsam bin ich am ende mit den nerven.
mit dem code
Private Sub CommandButton2_Click()
ActiveSheet.Unprotect Password:="xyz"
ActiveSheet.ChartObjects("Diagramm 99").Activate
ActiveChart.ChartArea.Select
With Selection.Border
.Weight = 1
.LineStyle = 0
End With
Selection.Interior.ColorIndex = xlAutomatic
Sheets("mitarbeiter").DrawingObjects("Diagramm 99").RoundedCorners = False
Sheets("mitarbeiter").DrawingObjects("Diagramm 99").Shadow = False
ThisWorkbook.Sheets("mitarbeiter").PageSetup.PrintArea = ""
Windows("kapazitätstool.xls").Activate
ActiveSheet.ChartObjects("Diagramm 99").Activate
ActiveChart.ChartObjects.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
With Selection.Border
.Weight = 1
.LineStyle = 0
End With
With Selection.Interior
.ColorIndex = 15
.PatternColorIndex = 1
.Pattern = 1
End With
ActiveWindow.Visible = False
Windows("kapazitätstool.xls").Activate
ActiveSheet.Protect Password:="xyz", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
versuche ich das diagramm zu drucken jedoch druckt er mir das komplette tabellenblatt.habe versucht den druckbereich zu entfernen und das diagramm anzuwählen doch es klappt nicht.
hat jemand vielleicht eine idee wie ich das hinbekomme?
danke im voraus
selo