如何对齐雪佛龙自动形状类型

Question

PowerPoint幻灯片具有一个Chevron形状，当用户单击该形状然后运行宏时，应在同一幻灯片中添加7种具有不同颜色的Chevron形状，并在PowerPoint幻灯片中均匀且水平地分布并对齐没有与宏水平对齐

我尝试添加雪佛龙形状并在宏中使用incrementleft并对齐msolefts，试图在它们之间以适当的间距水平对齐，但无法正常工作。请帮助我编写代码。

  

添加人字形形状

Sub testing
dim mychev as shape
dim shpind as integer
shpind = 2
for each mychev in activepresentation.slides(2).shapes
if shpind > 7 then
exit for 
end if
if mychev.name = "Chevron 1" then
with mychev.duplicate
.increment left 100
.increment top -10
mychev.name = "Chevron" & shpind
end iwth
shpind = shpind + 1
end if
next mychev
end sub

  

也尝试过这种方法，但是失败了

activepresentation.slides(2).shapes(i).select
selection.shaperange(i).align msolefts, false

  

预期结果类似于下面的链接图像，每个人字形具有不同的颜色。

https://www.google.com/url?sa=i&rct=j&q=&esrc=s&source=images&cd=&ved=2ahUKEwim_Kr4hYTjAhWy6nMBHSHSB8cQjRx6BAgBEAU&url=http%3A%2F%2Fwww.crystalgraphics.com%2Fpowerpoint%2Fslide.details.asp%3Fs%3DSLss3365-9&psig=AOvVaw1FqALPaVR84JPPdAZ1cWT4&ust=1561531937137917

请亲切帮助我解决那些看起来颇具挑战性的代码，因为这些形状还没有涉及任何工作。