• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Copy 1 chart vào excel

Nơi trao đổi về VBA (Visual Basic for Application), lập trình cho ứng dụng Microsoft Office, AutoCAD...

Moderator: tungblt

User avatar
lanlan
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 310
Joined: Thu 05/06/2008 8:49 am
Been thanked: 1 time

Copy 1 chart vào excel

Postby lanlan » Mon 21/03/2011 11:26 am

Các cao thủ giúp em vụ này với
em đang loay hay cho cái vụ export một cái chart từ vb6 ra excel đến vị trí mong muốn mong các cao thủ giúp em với
[-O<
em cảm ơn nhìu
Bác ơi cháu gửi lên rùi ngoài ra cho cháu hỏi cách cho dữ liệu vào (C1,C2...)
Attachments
testchart.rar
(82.56 KiB) Downloaded 302 times
Last edited by lanlan on Mon 21/03/2011 6:23 pm, edited 2 times in total.



User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

Re: Copy 1 chart vào excel

Postby truongphu » Mon 21/03/2011 4:13 pm

lan hãy gởi project lên để tiện edit
trả lời đôi khi không trúng ý
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

User avatar
lanlan
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 310
Joined: Thu 05/06/2008 8:49 am
Been thanked: 1 time

Re: Copy 1 chart vào excel

Postby lanlan » Tue 22/03/2011 8:26 am

Bác truongphu oi cháu gửi rùi đó

User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

Re: Copy 1 chart vào excel

Postby truongphu » Tue 22/03/2011 9:41 am

lanlan wrote:Bác truongphu oi


  1. Private Sub Command2_Click()
  2.     MSChart1.EditCopy
  3.     Dim objWorkbook As New Workbook
  4.     Set objWorkbook = objExcel.Workbooks.Add()
  5.     objExcel.Visible = True
  6.     objWorkbook.Worksheets(1).Range("C5").PasteSpecial xlPasteAll
  7. End Sub
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

User avatar
Kasper
Guru
Guru
Posts: 1063
Joined: Fri 16/05/2008 10:54 am
Has thanked: 2 times
Been thanked: 76 times
Contact:

Re: Copy 1 chart vào excel

Postby Kasper » Tue 22/03/2011 9:43 am

Tôi có ý thế này, bạn hãy save chart lại thành 1 picture bằng đoạn code sau:
  1. MSChart1.EditCopy
  2. SavePicture Clipboard.GetData(), "C:\Image1.jpg"
  3.  


Sau đó insert picture đã save vào excel.

Bác truongphu nhanh tay quá :D
Lành tợ tòng, ác tợ hoa,
Nhà hòa muôn việc đều nên.

User avatar
lanlan
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 310
Joined: Thu 05/06/2008 8:49 am
Been thanked: 1 time

Re: Copy 1 chart vào excel

Postby lanlan » Tue 22/03/2011 11:35 am

hihi cháu cảm ơn bác nhìu vba đúng là cũng có nhìu lúc tiện ích
ngoài ra cho cháu hỏi cách cho dữ liệu vào (C1,C2...) của cái chart nữa

sao cháu không thấy tham số nào chuyền vào cháu có dùng MSChart1.ColumnLabel = "To 1" nhưng chỉ thấy được C1
cháu cảm ơn nhiều

User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

Re: Copy 1 chart vào excel

Postby truongphu » Tue 22/03/2011 2:43 pm

lanlan wrote:không thấy tham số nào chuyền vào cháu có dùng MSChart1.ColumnLabel = "To 1" nhưng chỉ thấy được C1

Thay đổi 3 tham số đầu của dòng code:
  1. Private Sub Command2_Click()
  2.     MSChart1.DataGrid.SetData 1, 1, 588, 0
  3. End Sub


Trình bày chi tiết: ta có thể ghi chú thêm:
Attachments
lan.jpg
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

User avatar
lanlan
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 310
Joined: Thu 05/06/2008 8:49 am
Been thanked: 1 time

Re: Copy 1 chart vào excel

Postby lanlan » Wed 23/03/2011 8:23 am

hic bác hỉu sai ý cháu rùi . Ý cháu là thay đổi cái caption của C1,C2,C3,C4,C5,C6 cơ à con cái nữa cháu có thể hiển thị các giá trị của cột trong cái cột đó được không ?

User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

Re: Copy 1 chart vào excel

Postby truongphu » Wed 23/03/2011 10:19 am

lanlan wrote:thay đổi cái caption của C1,C2,C3,C4,C5,C6 cơ

khai MSChart1.ColumnLabel tại form load

lanlan wrote:hiển thị các giá trị của cột trong cái cột đó

trong column có tùm lum cột nhỏ, lấy các giá trị để làm gì?
-> giá trị có khi lan load vào MSChart1, đó là arrData
-> lấy trên MSChart1: dùng hàm GetData

hy vọng hiểu đúng ý :P
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

User avatar
lanlan
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 310
Joined: Thu 05/06/2008 8:49 am
Been thanked: 1 time

Re: Copy 1 chart vào excel

Postby lanlan » Wed 23/03/2011 2:36 pm

MSChart1.ColumnLabel

cái này chỉ được C1 còn C2,C3,C4,C5 thì sao ạ

User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

Re: Copy 1 chart vào excel

Postby truongphu » Wed 23/03/2011 2:58 pm

lan được trả lời sớm, không rõ tại sao? :-?
  1. Private Sub Form_Load()
  2.     loadchart
  3. MSChart1.ColumnLabel = "AAA"
  4. MSChart1.Column = 2
  5. MSChart1.ColumnLabel = "BBB"
  6. MSChart1.Column = 3
  7. MSChart1.ColumnLabel = "CCC"


cam ranh có đại học, hay lan chuyển ngoài nầy học?
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh


Return to “Visual Basic for Application (VBA)”

Who is online

Users browsing this forum: No registered users and 1 guest