Sử dụng VBA, làm cách nào để truy xuất thông tin hình dạng tùy chỉnh từ biểu đồ Visio 2003.Làm cách nào để truy xuất thông tin hình dạng tùy chỉnh Visio bằng VBA
5
A
Trả lời
6
Để có được tùy chỉnh hình thông tin từ một hình dạng Visio:
Function GetCustomPropertyValue(TheShape As Visio.Shape, ThePropertyName As String) As String
On Error Resume Next
GetCustomPropertyValue = TheShape.CellsU("Prop." & ThePropertyName).ResultStr(visNone)
End Function
Tất cả các chức năng này thực hiện là sử dụng tài sản cellsu trên hình dạng để có được những tế bào ShapeSheet tài sản tùy chỉnh theo tên ...
Nếu bạn là một người đam mê về việc sử dụng lỗi khi tiếp tục, bạn có thể kiểm tra xem ô có tồn tại hay không bằng cách kiểm tra xem ô có tồn tại hay không trước tiên:
if TheShape.CellExistsU("Prop." & ThePropertyName , 0) then
GetCustomPropertyValue = TheShape.CellsU("Prop." & THePropertyName).ResultStr(VisNone)
3
Tìm thấy tại http://visio.mvps.org/VBA.htm (Custom Thuộc tính)
Public Sub CustomProp()
Dim shpObj As Visio.Shape, celObj As Visio.Cell
Dim i As Integer, j As Integer, ShpNo As Integer
Dim LabelName As String, PromptName As String, ValName As String, Tabchr As String
Open "C:\CustomProp.txt" For Output Shared As #1
Tabchr = Chr(9)
For ShpNo = 1 To Visio.ActivePage.Shapes.Count
Set shpObj = Visio.ActivePage.Shapes(ShpNo)
nRows = shpObj.RowCount(Visio.visSectionProp)
For i = 0 To nRows - 1
Set celObj = shpObj.CellsSRC(Visio.visSectionProp, i, 0)
ValName = celObj.ResultStr(Visio.visNone)
Set celObj = shpObj.CellsSRC(Visio.visSectionProp, i, 1)
PromptName = celObj.ResultStr(Visio.visNone)
Set celObj = shpObj.CellsSRC(Visio.visSectionProp, i, 2)
LabelName = celObj.ResultStr(Visio.visNone)
Debug.Print shpObj.Name, LabelName, PromptName, ValName
Print #1, shpObj.Name; Tabchr; LabelName; Tabchr; PromptName; Tabchr; ValName
Next i
Next ShpNo
Close #1
End Sub
Các vấn đề liên quan
- 1. Tôi làm cách nào để truy xuất thông tin màn hình?
- 2. Làm thế nào để thêm cấu hình chuyển đổi cho tập tin cấu hình tùy chỉnh?
- 3. Làm cách nào để truy xuất giá trị ô Excel trong VBA như được định dạng trong WorkSheet?
- 4. Truy xuất thông tin tháp di động
- 5. truy cập thông tin cấu hình gnome bằng python
- 6. Làm cách nào để truy cập SQLite từ VBA?
- 7. Làm cách nào để tùy chỉnh đầu ra của loại tùy chỉnh bằng printf?
- 8. Làm thế nào để tùy chỉnh màn hình của dired
- 9. SVN - Truy xuất thông tin hữu ích
- 10. Magento - cách truy xuất hình ảnh tùy chọn đi kèm
- 11. cách truy xuất thông tin từ hàng đã xóa
- 12. Truy xuất thông tin phiên bản từ các tệp lớn
- 13. làm thế nào để vẽ hình dạng tùy chỉnh bằng cách sử dụng một kết cấu đơn giản trong libgdx?
- 14. Làm cách nào để xác định nguồn tin nhắn tùy chỉnh cho luồng web mùa xuân?
- 15. Android: hình dạng nút tùy chỉnh
- 16. Làm cách nào để truy xuất trang web bằng C#?
- 17. Làm cách nào để truy xuất nút cha bằng XQuery?
- 18. Làm cách nào để truy xuất tên Enum bằng id?
- 19. Hình dạng tùy chỉnh thực của nút
- 20. Làm thế nào để lưu tập tin csv bán kết tràng bằng cách sử dụng vba?
- 21. Dấu hiệu đơn lẻ Dotnetopenauth với nhà cung cấp thông tin nhận dạng tùy chỉnh
- 22. Truy xuất thông tin ID3 từ tệp m4a trong PHP
- 23. WCF - Thông tin đăng nhập & bảo mật tùy chỉnh
- 24. Cách truy xuất thông tin thiết bị Bluetooth bằng bộ chọn thiết bị Android Bluetooth?
- 25. Định dạng tùy chỉnh Thông báo đẩy iOS
- 26. Làm thế nào để xuất thông tin ngoại lệ trong tệp nhật ký với log4php?
- 27. Truy xuất nhiều thông tin theo một số duy nhất?
- 28. Làm cách nào để lọc dữ liệu biểu mẫu bằng mô hình liên kết tùy chỉnh
- 29. Làm cách nào để chuyển thông tin cấu hình cho CKEditor bằng bộ điều hợp jQuery?
- 30. Làm cách nào để lưu trữ thông tin tùy chỉnh trong SecurityContext của bảo mật mùa xuân?
'CellExistsU' trả về một số nguyên theo [tài liệu] (https://msdn.microsoft.com/en-us/vba/visio-vba/articles/shape-cellexistsu- tài sản-visio). Bạn có chắc chắn nó có thể được sử dụng như một boolean (0 cho false, nonzero cho đúng)? – jpmc26
vâng tôi chắc chắn, tài liệu không thực sự nói những gì được trả lại nhưng tôi đã sử dụng nó nhiều lần như một boolean. –