ขออนุญาตสอบถามการใส่คำอธิบายแผนภูมิด้วย VBA

[9KiTTi]

ขออนุญาตสอบถามการใส่คำอธิบายแผนภูมิด้วย VBA ไว้ด้านล่างของแผนภูมิ ผมใช้ code ด้านล่างแต่ติดที่บรรทัด

Code: Select all

.Legend.Position = xlLegendPositionBottom

รบกวนขอคำแนะนำด้วย ของฃบพระคุณครับ

Code: Select all

Sub copychart()
 Dim ws As Worksheet
 Dim Chrt1 As ChartObject
 Dim chrt2 As ChartObject
 Dim chrt As Chart
 
 Dim cht As ChartObject
'    Worksheets("Chart").Activate
'    ActiveSheet.ChartObjects.Delete
 
    Set ws = Worksheets("Chart")
    Set Chrt1 = Sheets("Main").ChartObjects(1)
    Chrt1.Copy
    ws.Paste Destination:=ws.Range("A1")
    Set chrt2 = ws.ChartObjects(1)
    With chrt2.Chart.Parent
         .Height = 450
         .Width = 1250
     End With
    With chrt2.Chart
        With .Axes(xlCategory)
            .TickLabels.Orientation = 90
            .Legend.Position = xlLegendPositionBottom
        End With
    End With
    
    With chrt2.Chart.Axes(xlValue)
        .HasTitle = True
        With .AxisTitle
            .Caption = "บาท"
            .Font.Name = "Arial"
            .Font.Size = 16
        End With
    End With
 
End Sub

[snasui]

ช่วยปลด Password ของ VBA แล้วแนบไฟล์มาอีกรอบครับ

[9KiTTi]

ขอโทษครับอาจารย์ ปลดล็อคแล้วครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
    With chrt2.Chart
        .SetElement (msoElementLegendBottom)
        With .Axes(xlCategory)
            .TickLabels.Orientation = 90
            '.Legend.Position = xlLegendPositionBottom
        End With
    End With
'Other code

[9KiTTi]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
    With chrt2.Chart
        .SetElement (msoElementLegendBottom)
        With .Axes(xlCategory)
            .TickLabels.Orientation = 90
            '.Legend.Position = xlLegendPositionBottom
        End With
    End With
'Other code

ได้อย่างที่ต้องการ ขอบพระคุณครับอาจารย์