Avatar billede Jan Hansen Ekspert
19. oktober 2019 - 16:18 Der er 1 kommentar

Diagram lavet med vba problem

Hejsa
hmmm, følgende kode laver et forkert diagram, mon der er en der kan knække den?

Option Explicit

Dim WsDiagram As Worksheet, wsBeregn As Worksheet
Dim StartCell As Range, Area As Range, Cell As Range
Dim LastRow As Integer
Dim rng As Range
Dim Top As Integer, Left As Integer
Const Width As Integer = 500, Height As Integer = 200

Dim Cht As Object

Sub MakeDiagram()
    Set WsDiagram = Sheets("Diagram")
    Set wsBeregn = Sheets("Beregn")
    Set StartCell = WsDiagram.Range("B3")
    Set Area = wsBeregn.Range("H3:H7")
    Left = StartCell.Left
    Top = StartCell.Top
   
    For Each Cell In Area
        If Cell.Value = "" Then
            LastRow = Cell.Row - 1
        Else
            LastRow = Cell.Row
        End If
    Next
    Set rng = Range("Beregn!H2:T" & LastRow)
    Set Cht = WsDiagram.Shapes.AddChart2
    With Cht
        .Left = Left
        .Top = Top
        .Width = Width
        .Height = Height
        With .Chart
            .SetSourceData Source:=rng
            .ChartType = xlColumnClustered
        End With
    End With
   
End Sub

nedenstående viser problemet
https://www.dropbox.com/s/f0cwo30nz0mm9h6/Diagram.docx?dl=0

Jan
Avatar billede supertekst Ekspert
21. oktober 2019 - 11:57 #1
Hej Jan

Vil godt prøve at se på problemet via nedenstående:
www.supertekst-it.dk | Kontakt
.. så svarer jeg og du får mulighed for at sende filen direkte.

Mvh
Peter Braagaard
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester