Увеличение переменной в MS PowerPoint - PullRequest
Новая
       18

Увеличение переменной в MS PowerPoint

0 голосов
/ 24 мая 2018

У меня очень ограниченные знания PowerPoint, но меня попросили создать слайд презентации, на котором мне нужно было бы щелкнуть области на карте, чтобы изменить цвет и увеличить число (население).Я могу изменить цвет карты при щелчке, и я могу отобразить пузырь, но я не могу увеличить количество населения на основе областей карты, на которые нажали.

I 'Мы смотрели на некоторые решения здесь и проводили некоторые исследования в Интернете, но не смогли найти ничего, что указывало бы мне в правильном направлении.

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

Заранее благодарим за помощь.

1 Ответ

0 голосов
/ 25 мая 2018

Вы можете установить параметр действия каждой фигуры на Запуск макроса: (имя макроса) При запуске подпрограммы VBA, называемой (имя макроса), когда вы щелкаете мышью по фигуре во время слайд-шоу.

Mac PowerPoint имеетнесколько ошибок, которые мешают этому работать так же гладко, как в Windows PowerPoint, но приведенный ниже код обходит эти проблемы и работает в любой версии. 

Sub IncrementNumber(oSh as Shape)

   Dim oSl as Slide
   Dim oShTemp as Shape

   ' oSh.Parent returns a valid reference to the shape's host slide:  
   Set oSl = ActivePresentation.Slides(oSh.Parent.SlideIndex)
   ' and oSh.Name works as well

   ' So we use those two bits to get a reference 
   ' to the clicked shape like so
   Set oShTemp = oSl.Shapes(oSh.Name)
   With oShTemp
       .TextFrame.TextRange.Text = _
       Cstr(CLng(oShTemp.TextRange.Text) + 1)
   End With

End Sub

Об этом бите: 

Cstr(CLng(oShTemp.TextRange.Text) + 1)

Это получает текущий текст в форме, преобразует его из текста (строки) в число, чтобы мы могли сделать арифметику с ним, добавляет к нему 1, а затем преобразует его обратно в текст, чтобы мы могли вставить его обратно в текст формы.

Если вы не знаете, что делать с примерами кода VBA, на сайте часто задаваемых вопросов по PowerPoint есть руководство, которое я поддерживаю:

Как использовать код VBA в PowerPoint http://www.pptfaq.com/FAQ00033_How_do_I_use_VBA_code_in_PowerPoint.htm

...