brauche hilfe makro macht nicht was ich will
07.09.2006 18:33:25
selo
habe folgendes Makro
Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
ActiveSheet.ChartObjects("Diagramm 6").Activate
ActiveChart.ChartArea.Select
With Selection.Border
.Weight = 1
.LineStyle = 0
End With
Selection.Interior.ColorIndex = xlAutomatic
Sheets("Tabelle4").DrawingObjects("Diagramm 6").RoundedCorners = False
Sheets("Tabelle4").DrawingObjects("Diagramm 6").Shadow = False
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
Sheets("Tabelle4").DrawingObjects("Diagramm 6").RoundedCorners = False
Sheets("Tabelle4").DrawingObjects("Diagramm 6").Shadow = False
ActiveWindow.Visible = False
Windows("kapazitätstool.xls").Activate
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
dies soll nur das diagramm drucken jedoch nimmt es immer wieder auch teile der Tabelle mit. Kann mir jemand vielleicht helfen?oder hat einer einen anderen tip wie ich das lösen kann?
gruß
selo