![]() |
#1
|
||||
|
||||
![]()
Hi.
See simple code and test file. Use on both sets of ungrouped shapes. Large amount of shapes changes results. -John Code:
Sub bugHmmm1() MsgBox ActiveShape.SizeHeight End Sub Sub bugHmmm2() Dim x#, y#, w#, h# Dim s As Shape Set s = ActiveShape s.GetBoundingBox x, y, w, h MsgBox h End Sub |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
the size of font in X4 | nathan | CorelDRAW/Corel DESIGNER VBA | 2 | 23-07-2010 13:12 |
PDF size | Dave | General | 1 | 08-11-2006 09:42 |
Draw X3: bug in "Font Size Next Combo Size" | wOxxOm | General | 3 | 31-01-2006 13:49 |
size of my gms | met | CorelDRAW/Corel DESIGNER VBA | 5 | 24-11-2005 09:58 |
How sets size form same as size images ? | woycek21 | Corel Photo-Paint VBA | 0 | 09-07-2005 13:30 |