Hola a todos!, antes que nada quisiera preguntar si es muy dificil aprender Visual Basic, tengo ganas de aprender algo de esto pero tengo miedo que sea dificil, ustedes serian tan amables de orientarme y si es posible indicarme donde puedo encontrar buenos tuoriales?, que programa necesito para programar en visual basic?
Ahora les pedire una ayuda si es posible, he sacado de una pagina esta instruccion:
Sub TotalTimes()
Dim oSld As Slide
Dim strMessage As String
Dim lngTotalTime As Long
For Each oSld In ActivePresentation.Slides
strMessage = strMessage _
& CStr(oSld.SlideNumber) _
& vbTab _
& CStr(oSld.SlideShowTransition.AdvanceTime) _
& vbCrLf
lngTotalTime = lngTotalTime + oSld.SlideShowTransition.AdvanceTime
Next oSld
' Comment these out if you don't want to see them
MsgBox strMessage
MsgBox ("Total time: " & CStr(lngTotalTime))
' And if you want to write the results to a text file:
Dim FileNum As Integer
Dim FileName As String
' Edit this to suit:
FileName = "C:\Mis Documentos\slidetimings.txt"
FileNum = FreeFile()
Open FileName For Output As FileNum
Print #FileNum, strMessage
Print #FileNum, "Total time: " & CStr(lngTotalTime)
Close #FileNum
' view the file in notepad
Call Shell("Notepad.exe " & FileName, vbNormalFocus)
End Sub
a la ruta de acceso le puse:
FileName = "C:\Mis documentos\slidetimings.txt"
cuando le doy ejecutar - ejecutar me muestra todas las
ventanas con los datos pero al final me muestra una
ventana que dice:
Se ha producido el error 76 en tiempo de ejecucion, no se
ha encontrado la ruta de acceso.
se me ocurrio apretar el boton que dice Depurar y pone en
amarillo esta linea:
Open FileName For Output As FileNum,
le he cambiado la ruta de acceso y le he
puesto "C:\escritorio\, y sigue dando error. si alguien me puede ayudar le quedo muy agradecida, cordialmente, maire
