Как сделать форму видимой на основе расчетов в PowerPoint

Question

У меня есть тест PowerPoint, который подсчитывает счет.Если показатель выше 80%, я бы хотел, чтобы кнопка (фигура с именем «PrintCert») стала видимой, чтобы пользователь мог распечатать сертификат.В данный момент кнопка всегда видна.Вот код, который я пробовал безуспешно.(Первая и последняя части кода обновляют метки.)

Sub showresult()
Percentage.Caption = Int((CA.Caption) * 100 /     (TQ.Caption)) & "%"
With ActivePresentation.Slides(37)
If ((CA.Caption) * 100 / (TQ.Caption)) > 79.9 Then
.Shapes("PrintCert").Visible = True
Else
.Shapes("PrintCert").Visible = False
End If
End With
SlideLayout41.PercentageCertificate.Caption = Percentage.Caption
ActivePresentation.SlideShowWindow.View.Next
End Sub

Answer 1

Проще всего добавить новый первый слайд с кнопкой действия «Начать показ», которую пользователи нажимают, чтобы начать презентацию.Вы бы применили настройку действия «Выполнить макрос» к кнопке и запустили макрос примерно так:

Sub StartShow()

    ' set your button shapes to be invisible
    With SlideShowWindows(1).Presentation.Slides(37)
        .Shapes("PrintCert").Visible = False
    End With
    ' etc, for any other shapes you want to have
    ' hidden to start with

    ' go to the actual first slide
    SlideShowWindows(1).View.GotoSlide (2)

End Sub