vba function 参数问题

Question

Sub macro1()
showSlides (ActivePresentation)

End Sub


Function showSlides(ActivePresentation As Integer)
Dim ViewSlides As Integer
ViewSlides = ActivePresentation.Slides.Count
MsgBox ViewSlides

End Function

I've tried to remove the "as integer" from the argument, I still run into the same issue

I want to build a function inside of PowerPoint that returns the amount of slides I have in my current presentation. I am having an error when trying to use the activedocument object as an argument in my function.

Answer 1

Do not use parenthesis when calling Subroutines, those are only for calling Functions that return something. Yours was defined as a Function, but since it never returned anything, and you werent assigning that to anything, there is no need for it to be a function. You did this just fine with your MsgBox call (no parenthesis)

And dim ActivePresentation As Presentation - Not Integer

And it's better to not use a reserved word as a variable name, so I changed it to MyPresentation

Sub macro1()
  showSlides ActivePresentation
End Sub

Sub showSlides(MyPresentation As Presentation)
  Dim ViewSlides As Long
  ViewSlides = MyPresentation.Slides.Count
  MsgBox ViewSlides
End Sub

---

Alternatively, here it is written a little differently, using a Function. Now that it returns something, you can use that in the calling Subroutine.

Sub macro1()
  MsgBox showSlides(ActivePresentation)
End Sub

Function showSlides(MyPresentation As Presentation) As Long
  showSlides = MyPresentation.Slides.Count
End Function