Microsoft Excel

Herbers Excel/VBA-Archiv

plazieren von Diagrammen

    Betrifft: plazieren von Diagrammen von: Werner
    Geschrieben am: 07.10.2003 00:11:33

    dear All,

    ich erzeuge mit folgendem Macro auf einem Datenblatt ein Diagramm.
    Diese Diagramm möchte ich am Ende der Tabelle positionieren.
    mit folgendem Befehl finde ich das Ende der Tabelle:
    Range("B:B").Select
    Selection.Find(what:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, Searchorder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Select

    Meine Frage lautet: Wie kann ich das Diagramm dort positionieren?



    Public

    Sub Start_createChartobjectResize()
    '
    ' Start_createChartobjectRange Makro
    ' Makro am 05.09.2003 von ICFJOW aufgezeichnet
    '
    Dim xlRange As Range
    
    Dim lngnumrows As Long
    Dim lngNumCols As Long
    
    
    ActiveSheet.ChartObjects("rudi").Activate
    ActiveChart.ChartObjects
    ActiveChart.ChartArea.Select
    Selection.Clear
    
    Set xlWS = ThisWorkbook.Worksheets("Tabelle1")
    
    lngnumrows = xlWS.Range("A65536").End(xlUp).Row
    lngNumCols = xlWS.Range("IV1").End(xlToLeft).Column
    
    Set xlRange = xlWS.Range(xlWS.Cells(1, 1), xlWS.Cells(lngnumrows, lngNumCols))
     
    CreateChartObjectResize lngnumrows, lngNumCols
    
    
    Set xlWS = Nothing
    
    End Sub
    


    Public
    Sub CreateChartObjectResize(ByVal lngnumrows As Long, lngNumCols As Long)
    
    Dim ochart As Object
    
    Application.ScreenUpdating = False
     
    Set ochart = Application.Charts.Add
    
    With ochart
    
        .ChartType = xlColumnClustered
        .SetSourceData Source:=xlWS.Range("A1").Resize(lngnumrows, lngNumCols), _
         PlotBy:=xlColumns
        
        With ActiveChart.Axes(xlCategory)
        .MinimumScale = Date - 20
        .MaximumScale = Date
        
        End With
        .HasTitle = False
        .HasLegend = False
        .Location where:=xlLocationAsObject, Name:=xlWS.Name
       
    End With
    
    Set ochart = xlWS.ChartObjects(xlWS.ChartObjects.Count)
    
    With ochart
        .Width = 600
        .Height = 400
    End With
    
    Application.ScreenUpdating = True
    
    ochart.Name = "rudi"
    
    
     ActiveSheet.Shapes("rudi").IncrementLeft -40.5
     ActiveSheet.Shapes("rudi").IncrementTop 206.25
    
     Range("B:B").Select
        Selection.Find(what:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, Searchorder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Select
    End Sub
    

      


    Betrifft: AW: plazieren von Diagrammen von: Galenzo
    Geschrieben am: 07.10.2003 08:47:02

    Hallo,

    so kannst du beispielsweise das Diagramm unten rechts neben die aktive Zelle
    versetzen. Kannst du dann entsprechend anpassen.


        With ChartObjects("Diagramm 2")
            .Left = Range(Cells(1, 1), ActiveCell).Width
            .Top = Range(Cells(1, 1), ActiveCell).Height
        End With

    Viel Erfolg und gutes Gelingen!


      


    Betrifft: AW: plazieren von Diagrammen von: Werner
    Geschrieben am: 07.10.2003 14:35:26

    Hi Galenzo,

    danke für die Antwort, es funzt gut.


     

    Beiträge aus den Excel-Beispielen zum Thema " plazieren von Diagrammen"