如何改变矩形大小

clyfd

ActiveSheet.Shapes("矩形 1").Fill.ForeColor.RGB = RGB(255, 128, 255)
这个能改变矩形填充色，那如何改变大小呢

duquancai

    ActiveSheet.Shapes("矩形 1").Width = 100 '宽   
    ActiveSheet.Shapes("矩形 1").Height = 150 '高

clyfd

duquancai 发表于 2018-10-2 15:55
ActiveSheet.Shapes("矩形 1").Width = 100 '宽   
    ActiveSheet.Shapes("矩形 1").Height = 150  ...

谢谢老师的帮助

duquancai

clyfd 发表于 2018-10-2 15:58
谢谢老师的帮助

1.     Dim p As Shape
   
2.     Set p = ActiveSheet.Shapes("矩形 1")
   
3.     p.Width = p.Width * 1.5 '宽度 扩大1.5倍
   
4.     p.Height = p.Height * 2 '高度 扩大2倍

复制代码

clyfd

duquancai 发表于 2018-10-2 16:00

这个不错，我就想要这个效果

duquancai

clyfd 发表于 2018-10-2 16:14
这个不错，我就想要这个效果

你又没说清楚要这种，我只是“猜的谜语！”

clyfd

duquancai 发表于 2018-10-2 16:27
你又没说清楚要这种，我只是“猜的谜语！”

知道方法就好，谢谢