ActiveSheet.Shapes("Diagramm 2").IncrementLeft
11.04.2019 20:01:45
Adrian
erstmals muss ich gesetehen,dass ich bisher meine Makros nur mit dem Macrorecorder _ aufgezeichnet habe. Nun bekomme ich bei dem Code eine Fehlermeldung:
Sub Makro100()
' Makro100 Makro
'
Range("B13:N15").Select
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range( _
"'Organisatorisch Auswertung'!$B$13:$N$15")
ActiveSheet.Shapes("Diagramm 2").IncrementLeft -614.5454330709
ActiveSheet.Shapes("Diagramm 2").IncrementTop -165.4545669291
ActiveSheet.Shapes("Diagramm 2").ScaleWidth 3.9292928696, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagramm 2").ScaleHeight 2.4886366288, msoFalse, _
msoScaleFromTopLeft
ActiveWindow.SmallScroll Down:=-6
ActiveChart.SetElement (msoElementChartTitleNone)
ActiveChart.SetElement (msoElementDataLabelOutSideEnd)
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
ActiveChart.Legend.Select
Selection.Position = xlTop
ActiveChart.Legend.IncludeInLayout = False
Application.CommandBars("Format Object").Visible = False
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Select
With ActiveSheet.Shapes("Diagramm 2").TextFrame2.TextRange.Font
.BaselineOffset = 0
.Size = 14
End With
End Sub
Ich vermute, dass es an der Bezeichnung "Diagramm 2" liegt. Wisst ihr, wie ich das Problem lösen kann? Ich wäre euch sehr dankbar.