Как настроить тип автофигуры Chevron - PullRequest
Новая
       11

Как настроить тип автофигуры Chevron

0 голосов
/ 25 июня 2019

Слайд PowerPoint имеет одну форму Chevron, когда пользователь нажимает на форму и затем запускает макрос, он должен добавить 7 фигур Chevron с разными цветами на одном слайде, распределенных и выровненных равномерно и горизонтально в слайде PowerPoint, однако это не выравнивается по горизонтали с макросами

Я пытался добавить фигуры Шеврона и использовать приращения левого и выравнивающего 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

Пожалуйста, помогите мне с кодом, требуемым для такой же сложной задачи, поскольку не сталкивались с какой-либо работой над этими фигурами.

...