Page 2 of 2
Re: อยากถามวิธีการสร้างกราฟให้เหมือนเอกสารที่แนบมาค่ะ
Posted: Wed May 16, 2012 4:18 pm
by Palmib
ไฟล์ตัวอย่างค่ะ แก้แค่กราฟแรกไปนะคะ
แล้วคอมเมนต์ไว้ถึงรันได้ค่ะ
Re: อยากถามวิธีการสร้างกราฟให้เหมือนเอกสารที่แนบมาค่ะ
Posted: Wed May 16, 2012 4:21 pm
by Palmib
ชื่อชีทจริงๆ มันคือ ("PSA_KPOV chart_" & wn)
ประมานนี้ค่ะ ต้อง pass ค่า wn เข้าไปด้วย
แต่ที่หนูแนบไป หนูเอาค่า wn ออกแล้วค่ะ
แล้วใส่เป็น 45 ไปแทน
Re: อยากถามวิธีการสร้างกราฟให้เหมือนเอกสารที่แนบมาค่ะ
Posted: Wed May 16, 2012 5:01 pm
by snasui
ลองปรับ Code เป็นตามด้านล่างครับ
Code: Select all
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "PSA KOV CHART"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
With ActiveSheet.Shapes(1)
.Left = Worksheets("PSA_KPOV chart_45").Range("N2").Left
.Top = Worksheets("PSA_KPOV chart_45").Range("N2").Top
.Height = Worksheets("PSA_KPOV chart_45").Range("N2:N30").Height
.Width = Worksheets("PSA_KPOV chart_45").Range("N2:V30").Width
End With