Snasui Excel Forum

ขอบคุณมากค่ะ กลับไปทดลองปรับเอง ได้ผลเรียบร้อยแล้วค่ะ มีส่วนไหนที่ควรปรับปรุงไหมคะ


Sub DynamicAxis()
'
'

Dim i As Integer

For i = 1 To ActiveSheet.ChartObjects.Count

ActiveSheet.ChartObjects(i).Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)

ActiveChart.Axes ...

ขอสอบถามเกี่ยวกับการปรับ Axis range โดยใช้ vb ค่ะ

ได้อ่านกระทู้ที่เกี่ยวกับเรื่องนี้ และได้ทดลองทำกับกราฟปกติ พบว่า Code ที่อาจารย์ให้ไว้ในกระทู้นั้นตามด้านล่างนี้ ใช้งานได้เป็นอย่างดี

แต่เมื่อลองกับกราฟที่ต้องการปรับ กับพบว่า code error ไม่แน่ใจว่าเกิดจากวิธีการสร้างกราฟหรือไม่ รบกวนผู้รู้ช่วยด ...