|
|
Viết bởi: Đình Phán 15-06-21, 12:34 PM Chuyên mục: Forms - Bài trả lời (5) |
|
|
Viết bởi: bvchauthanh 13-06-21, 10:38 AM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (3) |
|
|
Viết bởi: Đình Phán 11-06-21, 07:15 PM Chuyên mục: Forms - Bài trả lời (4) |
Sub ShowFormReport()
'Chon cac Option de len bao cao
Select Case MyFrame
Case optBalanceSheet
DoCmd.OpenForm "tblMappingAccount", acFormDS
Case optCashFlow
DoCmd.OpenForm "tblMappingAccount", acFormDS
Case optProfitAndLoss
DoCmd.OpenForm "F_Q_CashFlow", acFormDS
Case optProfitAndLoss
DoCmd.OpenForm "F_Q_CashFlow", acFormDS
Case optProfitAndLoss
DoCmd.OpenForm "F_Q_CashFlow", acFormDS
Case optOther
DoCmd.OpenForm "F_Q_CashFlow", acFormDS
End Select
End Sub
|
|
Viết bởi: Minh Tiên 09-06-21, 03:17 PM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (1) |
Private Sub FormatTable()
Dim sFile As String
sFile = CurrentProject.Path & "\" & "TenSlide.pptx"
Dim ppApp As Object
Dim ppPres As Object
Dim ppSlide As Object
Dim oeff As Object
On Error Resume Next
Set ppApp = GetObject(, "PowerPoint.Application")
If Err.Number <> 0 Then
Err.Clear
Set ppApp = CreateObject("PowerPoint.Application")
End If
ppApp.Visible = False
Set ppPres = ppApp.Presentations.Open(FileName:=sFile, WithWindow:=msoTrue)
Set ppSlide = ppPres.Slides(1)
With ppSlide.Shapes(1).Table
'Ghi thông tin vào table:
.Cell(1, 1).Shape.TextFrame.TextRange.text = "Hello" 'Chạy OK
'Format chiều cao cho dòng 1:
.Rows(1).Height = 50 ' Chạy OK
'Format chiều cao cho cả Table:
.Height = 500 'Không format được. Nhờ ACE chỉ giúp đoạn này.
End With
ppPres.Save
' ppPres.Close
' ppApp.Quit
Set ppApp = Nothing
Set ppPres = Nothing
Set ppCurrentSlide = Nothing
End Sub
|
|
Viết bởi: jason 09-06-21, 02:59 PM Chuyên mục: Forms - Bài trả lời (8) |
| Chủ đề Mới nhất |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,345 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 146 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 160 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,101 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 182 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 660 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 186 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 632 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,615 |
| TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 285 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |