dim s2 as shape
dim s1 as shape
声明两个变量
set s2 = activeshape
set s1 = activeshape
s2.AlignToShape cdrAlignRight, s1, cdrTextAlignBoundingBox
‘形状2对齐形状1的右边’
s2.AlignToShape cdrAlignTop, s1, cdrTextAlignBoundingBox
‘形状2对齐形状1的顶部’
s2.AlignToShape cdrAlignBottom, s1, cdrTextAlignBoundingBox
‘形状2对齐形状1的底部’
s2.AlignToShape cdrAlignLeft + cdrAlignRight, s1, cdrTextAlignBoundingBox
‘形状2对齐形状1的左右对齐’
s2.AlignToShape cdrAlignTop + cdrAlignBottom, s1, cdrTextAlignBoundingBox
‘形状2对齐形状1的上下对齐’