Salva en 13:18 22 jun 2016

2016-06-22T13:18:52Z

Página nueva

{{Menu|cat=Basic|Titulo=Macros para Apache OpenOffice Impress|vers=4.1.x}}
<seo title="Macros en Basic para Impress - Apache OpenOffice Basic"
metakeywords="macro,basic,impress,starbasic,manual,curso,tutorial,open,office,openoffice,apache openoffice,libreoffice"
metadescription="Recopilación de macros en lenguaje OOo Basic (StarBasic) para Apache OpenOffice y LibreOffice Impress"/>

{{En Construccion|Seguimos agregando nuevas macros [[Image:En_construccion_2.gif|right|link=]] }}

<big>
{|
| width="50%" valign="top" |
=== Trabajando con presentaciones ===
*[[#Acceder a la presentación actual|Acceder a la presentación actual]]
*[[#Abrir una presentación existente|Abrir una presentación existente]]
*[[#Abrir una presentación con macros existente|Abrir una presentación con macros existente]]
*[[#Verifica si el documento es una presentación de Impress|Verifica si el documento es una presentación de Impress]]
*[[#Cambiar el modo de trabajo en Impress|Cambiar el modo de trabajo en Impress]]

=== Trabajando con diapositivas ===
*[[#Número de diapositivas|Número de diapositivas]]
*[[#Diapositiva activa|Diapositiva activa]]
*[[#Diapositiva por índice|Diapositiva por índice]]
*[[#Diapositiva por posición|Diapositiva por posición]]
*[[#Diapositiva por nombre|Diapositiva por nombre]]
*[[#Recorrer todas las diapositivas|Recorrer todas las diapositivas]]
*[[#Insertar nueva diapositiva|Insertar nueva diapositiva]]
*[[#Borrar diapositiva por índice|Borrar diapositiva por índice]]
*[[#Borrar diapositiva por posición|Borrar diapositiva por posición]]
*[[#Borrar diapositiva por nombre|Borrar diapositiva por nombre]]
*[[#Seleccionar diapositiva por índice|Seleccionar diapositiva por índice]]
*[[#Seleccionar diapositiva por posición|Seleccionar diapositiva por posición]]
*[[#Seleccionar diapositiva por nombre|Seleccionar diapositiva por nombre]]
*[[#Duplicar diapositiva por índice|Duplicar diapositiva por índice]]
*[[#Duplicar diapositiva por posición|Duplicar diapositiva por posición]]
*[[#Copiar diapositiva por índice|Copiar diapositiva por índice]]
*[[#Copiar diapositiva por posición|Copiar diapositiva por posición]]
*[[#Mover diapositiva por índice|Mover diapositiva por índice]]
*[[#Mover diapositiva por posición|Mover diapositiva por posición]]

| width="50%" valign="top" |
=== Propiedades de las diapositivas ===
*[[#Índice de la diapositiva|Índice de la diapositiva]]
*[[#Posición de la diapositiva|Posición de la diapositiva]]
*[[#Nombre de la diapositiva|Nombre de la diapositiva]]
*[[#Nombre mostrado en la diapositiva|Nombre mostrado en la diapositiva]]

=== Otras ===

:*<big>'''[http://blog.open-office.es/impress/ + Más cosas para Impress en nuestro blog]'''</big>

|}
</big>

= Trabajando con presentaciones =
== Acceder a la presentación actual ==
Devuelve un objeto con la presentación actualmente abierta.

<syntaxhighlight lang="oobas">
Function Presentacion() As Object
'--------------------------------------------------------------------------------------------
Presentacion = ThisComponent
End Function
</syntaxhighlight>

== Abrir una presentación existente ==
Abre el documento indicado en '''''cRuta'''''; debe contener la ruta y el nombre del documento. Por ejemplo '''C:\User\Docs\Informe-ventas.odp'''

Opcionalmente se le puede pasar un array aOpciones() de tipo ''com.sun.star.bean.PropertyValue'', con las opciones deseadas para abrir el documento.

<syntaxhighlight lang="oobas">
Function PresentacionAbrir( cRuta As String, Optional aOpciones() ) As Object
'--------------------------------------------------------------------------------------------
cRuta = ConvertToURL( cRuta )
If IsMissing( aOpciones ) Then aOpciones = Array()
PresentacionAbrir = StarDesktop.LoadComponentFromURL( cRuta, "_blank", 0, aOpciones() )
End Function
</syntaxhighlight>

Ejemplos:
:* Abrir una presentación Impress existente
<syntaxhighlight lang="oobas">
Dim miPresentacion As Object
miPresentacion = PresentacionAbrir "C:\miPresentacionDeImpress.odp"
</syntaxhighlight>

:* Abrir una presentación Impress pero que no sea visible (oculto):
<syntaxhighlight lang="oobas">
Dim miPresentacion As Object, aOpc(1) As New com.sun.star.bean.PropertyValue
aOpc(0).Name = "Hidden"
aOpc(0).Value = TRUE
miPresentacion = PresentacionAbrir "C:\miPresentacionDeImpress.odp", aOpc()
</syntaxhighlight>

Para conocer más propiedades al abrir un documento, ver {{Enlace|http://www.openoffice.org/api/docs/common/ref/com/sun/star/document/MediaDescriptor.html|Service MediaDescriptor}}.

Para conocer más opciones de filtro, ver {{Enlace|https://wiki.openoffice.org/wiki/Documentation/DevGuide/Drawings/Filter_Options|Propiedad FilterOptions}}.

== Abrir una presentación con macros existente ==
Abre una presentación con macros activadas indicado en '''''cRuta'''''; debe contener la ruta y el nombre del documento. Por ejemplo '''C:\User\Docs\Informe-ventas.odp'''

<syntaxhighlight lang="oobas">
Function PresentacionConMacrosAbrir( cRuta As String ) As Object
'--------------------------------------------------------------------------------------------
Dim aOpc(0) As New "com.sun.star.beans.PropertyValue"
aOpc(0).Name = "MacroExecutionMode"
aOpc(0).Value = 4
PresentacionConMacrosAbrir = PresentacionAbrir( cRuta, aOpc() )
End Function
</syntaxhighlight>

== Verifica si el documento es una presentación de Impress ==
Devuelve '''''Verdadero''''' si el objeto pasado como argumento es una presentación de Impress.

<syntaxhighlight lang="oobas">
Function DocEsPresentacionImpress( oDoc As Object ) As Boolean
'--------------------------------------------------------------------------------------------
DocEsPresentacionImpress = oDoc.SupportsService( "com.sun.star.presentation.PresentationDocument" )
End Function
</syntaxhighlight>

== Cambia el modo de trabajo en Impress ==
Establece el modo de trabajo de la presentación pasada como argumento.

El modo de trabajo se puede establecer de alguna de estas formas:

:* Por su nombre en castellano: Normal, Esquema, Notas, Folleto, Clasificador
:* Por su nombre en inglés: Drawing, Outline, Notes, Handout, Sorter
:* Por su código numérico: Normal = 0, Esquema = 2, Notas = 3, Folleto = 4, Clasificador = 1

Por defecto, activa el modo Normal

<syntaxhighlight lang="oobas">
Sub PresentacionCambiarModo( oPresentacion As Object, xModo )
'--------------------------------------------------------------------------------------------
Dim oDispatch As Object, aModos() As String, nModo As Integer
Select Case LCase( xModo )
Case "normal", "drawing", 0 : nModo = 0
Case "esquema", "outline", 2 : nModo = 2
Case "notas", "notes", 3 : nModo = 3
Case "folleto", "handout", 4 : nModo = 4
Case "clasificador", "sorter", 1 : nModo = 1
End Select
' normal, clasificador, esquema, notas, folleto
aModos() = Array( ".uno:DrawingMode", ".uno:DiaMode", ".uno:OutlineMode", ".uno:NotesMode", ".uno:HandoutMode" )
oDispatch = CreateUNOService( "com.sun.star.frame.DispatchHelper" )
oDispatch.ExecuteDispatch( oPresentacion.CurrentController.Frame, aModos( nModo ), "", 0, Array() )
End Sub
</syntaxhighlight>

= Trabajando con diapositivas =
== Número de diapositivas ==
Devuelve el número de diapositivas que contiene la presentación pasada como argumento.

<syntaxhighlight lang="oobas">
Function DiapositivasNumero( oPresentacion As Object ) As Long
'--------------------------------------------------------------------------------------------
DiapositivasNumero = oPresentacion.DrawPages.Count()
End Function
</syntaxhighlight>

== Diapositiva activa ==
Devuelve un objeto con la diapositiva activa de la presentación que se pasa como argumento.

<syntaxhighlight lang="oobas">
Function DiapositivaActiva( oPresentacion As Object ) As Object
'--------------------------------------------------------------------------------------------
DiapositivaActiva = oPresentacion.CurrentController.CurrentPage
End Function
</syntaxhighlight>

== Diapositiva por índice ==
Devuelve un objeto con la diapositiva solicitada por su índice{{Llamada|Notas|1}} de la presentación pasada como argumento.

<syntaxhighlight lang="oobas">
Function Diapositiva( oPresentacion As Object, nIndice As Long ) As Object
'--------------------------------------------------------------------------------------------
Diapositiva = oPresentacion.DrawPages( nIndice )
End Function
</syntaxhighlight>

== Diapositiva por posición ==
Devuelve un objeto con la diapositiva solicitada por su posición{{Llamada|Notas|3}} de la presentación pasada como argumento.

<syntaxhighlight lang="oobas">
Function DiapositivaPorPosicion( oPresentacion As Object, nPosicion As Long ) As Object
'--------------------------------------------------------------------------------------------
DiapositivaPorPosicion = oPresentacion.DrawPages( nPosicion - 1 )
End Function
</syntaxhighlight>

== Diapositiva por nombre ==
Devuelve un objeto con la diapositiva solicitada por su nombre{{Llamada|Notas|2}} de la presentación pasada como argumento.

El nombre puede ser por ejemplo '''''page 3''''' si el nombre no se ha personalizado, '''''Gráfica de barras Enero''''' si es el nombre personalizado que se le asignó.

<syntaxhighlight lang="oobas">
Function DiapositivaPorNombre( oPresentacion As Object, cNombre As String ) As Object
'--------------------------------------------------------------------------------------------
DiapositivaPorNombre = oPresentacion.DrawPages.GetByName( cNombre )
End Function
</syntaxhighlight>

== Recorrer todas las diapositivas ==
Recorre todas las diapositivas de la presentación pasada como argumento. Este procedimiento sólo se incluye como ejemplo de cómo recorrer todas las diapositivas de una presentación.

<syntaxhighlight lang="oobas">
Sub DiapositivasRecorrer( oPresentacion As Object )
'--------------------------------------------------------------------------------------------
Dim oDiapositiva As Object, oDiapositivas As Object, n As Long
oDiapositivas = oPresentacion.DrawPages

For n=0 To oDiapositivas.Count()-1
oDiapositiva = Diapositiva( oPresentacion, n )
' aquí tu código
MsgBox "Diapositiva Index=" & n & " : Name=" & _
oDiapositiva.Name & " ; linkDisplayName=" & oDiapositiva.linkDisplayName
Next
End Sub
</syntaxhighlight>

== Insertar nueva diapositiva ==
Inserta una nueva diapositiva en la presentación pasada como argumento. Devuelve un objeto con la nueva diapositiva insertada.

Si no se especifica '''''nTrasIndice''''' se inserta tras la última diapositiva.

Si se especifica, será el índice{{Llamada|Notas|1}} de la diapositiva tras la que deseamos insertar la nueva, teniendo en cuenta que:

:* La primera diapositiva tiene índice 0
:* No se puede insertar una nueva diapositiva antes de la primera
:* Cualquier valor menor que 0 es equivalente a decir que se inserte tras la última diapositiva

Opcionalmente se puede especificar un nombre{{Llamada|Notas|2}} para la nueva diapositiva, teniendo en cuenta que:

:* Si el nombre ya existe, se añadirá un signo '''+''' al nombre tantas veces como sea necesario hasta obtener un nombre único.

<syntaxhighlight lang="oobas">
Function DiapositivaNueva( oPresentacion As Object, _
Optional nTrasIndice As Long, Optional cNombre As String ) As Object
'--------------------------------------------------------------------------------------------
If IsMissing( nTrasIndice ) Then nTrasIndice = -1
DiapositivaNueva = oPresentacion.DrawPages.insertNewByIndex( nTrasIndice )
If Not IsMissing( cNombre ) Then
PresentacionValidaNombreDiapositiva( oPresentacion, cNombre )
DiapositivaNueva.Name = cNombre
EndIf
End Function
</syntaxhighlight>

== Procedimiento auxiliar para validar nombre de diapositiva ==
Este procedimiento verifica que el nombre pasado como argumento es único en la presentación; si no lo es, añadirá un el argumento '''''cSep''''' al nombre tantas veces como sea necesario hasta obtener un nombre único.

Si se omite '''''cSep''''' o es una cadena vacía, se utilizará el signo '''+''' en su lugar

<syntaxhighlight lang="oobas">
Sub PresentacionValidaNombreDiapositiva( oPresentacion As Object, ByRef cNombre As String, _
Optional cSep As String )
'--------------------------------------------------------------------------------------------
If IsMissing( cSep ) Or cSep = "" Then cSep = "+"
While oPresentacion.DrawPages.HasByName( cNombre )
cNombre = cNombre & cSep
Wend
End Sub
</syntaxhighlight>

== Borrar diapositiva por índice ==
Elimina la diapositiva por su índice{{Llamada|Notas|1}} en la presentación pasada como argumento.

<syntaxhighlight lang="oobas">
Sub DiapositivaBorra( oPresentacion As Object, nIndice As Long )
'--------------------------------------------------------------------------------------------
Dim oDiapositiva As Object
oDiapositiva = oPresentacion.DrawPages( nIndice )
oPresentacion.DrawPages.remove( oDiapositiva )
End Sub
</syntaxhighlight>

== Borrar diapositiva por posición ==
Elimina la diapositiva por su posición{{Llamada|Notas|3}} en la presentación pasada como argumento.

<syntaxhighlight lang="oobas">
Sub DiapositivaBorraPorPosicion( oPresentacion As Object, nPosicion As Long )
'--------------------------------------------------------------------------------------------
DiapositivaBorra( oPresentacion, nPosicion - 1 )
End Sub
</syntaxhighlight>

== Borrar diapositiva por nombre ==
Elimina la diapositiva por su nombre{{Llamada|Notas|2}} en la presentación pasada como argumento.

<syntaxhighlight lang="oobas">
Sub DiapositivaBorraPorNombre( oPresentacion As Object, cNombre As String )
'--------------------------------------------------------------------------------------------
Dim oDiapositiva As Object
oDiapositiva = DiapositivaPorNombre( oPresentacion, cNombre )
oPresentacion.DrawPages.remove( oDiapositiva )
End Sub
</syntaxhighlight>

== Seleccionar diapositiva por índice ==
Selecciona la diapositiva por su índice{{Llamada|Notas|1}} en la presentación pasada como argumento.

<syntaxhighlight lang="oobas">
Sub DiapositivaSeleccionar( oPresentacion As Object, nIndice As Long )
'--------------------------------------------------------------------------------------------
Dim oDiapositiva As Object
oDiapositiva = oPresentacion.DrawPages( nIndice )
oPresentacion.CurrentController.setCurrentPage( oDiapositiva )
End Sub
</syntaxhighlight>

== Seleccionar diapositiva por posición ==
Selecciona la diapositiva por su posición{{Llamada|Notas|3}} en la presentación pasada como argumento.

<syntaxhighlight lang="oobas">
Sub DiapositivaSeleccionarPorPosicion( oPresentacion As Object, nPosicion As Long )
'--------------------------------------------------------------------------------------------
DiapositivaSeleccionar( oPresentacion, nPosicion - 1 )
End Sub
</syntaxhighlight>

== Seleccionar diapositiva por nombre ==
Selecciona la diapositiva por su nombre{{Llamada|Notas|2}} en la presentación pasada como argumento.

<syntaxhighlight lang="oobas">
Sub DiapositivaSeleccionarPorNombre( oPresentacion As Object, cNombre As String )
'--------------------------------------------------------------------------------------------
Dim oDiapositiva As Object
oDiapositiva = DiapositivaPorNombre( oPresentacion, cNombre )
oPresentacion.CurrentController.setCurrentPage( oDiapositiva )
End Sub
</syntaxhighlight>

== Duplicar diapositiva por índice ==
Duplica la diapositiva identificada por su índice{{Llamada|Notas|1}} '''''nActual''''' en la presentación pasada como argumento. La nueva diapositiva se situará justo a continuación de la identificada.

Opcionalmente se puede especificar un nombre{{Llamada|Notas|2}} para la nueva diapositiva, teniendo en cuenta que:

:* Si el nombre ya existe, se añadirá un signo '''+''' al nombre tantas veces como sea necesario hasta obtener un nombre único.

<syntaxhighlight lang="oobas">
Sub DiapositivaDuplica( oPresentacion As Object, nIndice As Long, Optional cNombre As String )
'--------------------------------------------------------------------------------------------
Dim oDiapositiva As Object, oNueva As Object
oDiapositiva = oPresentacion.DrawPages( nIndice )
oNueva = oPresentacion.duplicate( oDiapositiva )
If Not IsMissing( cNombre ) Then
PresentacionValidaNombreDiapositiva( oPresentacion, cNombre )
oNueva.Name = cNombre
EndIf
End Sub
</syntaxhighlight>

== Duplicar diapositiva por posición ==
Duplica la diapositiva identificada por su posición{{Llamada|Notas|3}} '''''nPosicion''''' en la presentación pasada como argumento. La nueva diapositiva se situará justo a continuación de la identificada.

Opcionalmente se puede especificar un nombre{{Llamada|Notas|2}} para la nueva diapositiva, teniendo en cuenta que:

:* Si el nombre ya existe, se añadirá un signo '''+''' al nombre tantas veces como sea necesario hasta obtener un nombre único.

<syntaxhighlight lang="oobas">
Sub DiapositivaDuplicaPorPosicion( oPresentacion As Object, nPosicion As Long, Optional cNombre As String )
'--------------------------------------------------------------------------------------------
DiapositivaDuplica( oPresentacion, nPosicion - 1, cNombre )
End Sub
</syntaxhighlight>

== Copiar diapositiva por índice ==
Copia la diapositiva identificada por su índice{{Llamada|Notas|1}} '''''nActual''''' justo por delante de la diapositiva identificada por su índice '''''nNuevo''''' en la presentación pasada como argumento.

No se admite el valor 0 para el argumento '''''nNuevo'''''.

<syntaxhighlight lang="oobas">
Sub DiapositivaCopia( oPresentacion As Object, nActual As Long, nNuevo As Long )
'--------------------------------------------------------------------------------------------
oDispatch = CreateUNOService( "com.sun.star.frame.DispatchHelper")
If nNuevo = 0 Then
' msgbox "Esta opción no es posible"
Beep
ElseIf nNuevo > nActual Then
DiapositivaSeleccionar oPresentacion, nActual
oDispatch.ExecuteDispatch(oPresentacion.CurrentController.Frame, ".uno:Copy","", 0, Array())
DiapositivaSeleccionar oPresentacion, nNuevo-1
oDispatch.ExecuteDispatch(oPresentacion.CurrentController.Frame, ".uno:Paste", "", 0, Array())
DiapositivaSeleccionar oPresentacion, nNuevo
ElseIf nNuevo < nActual Then
DiapositivaSeleccionar oPresentacion, nActual
oDispatch.ExecuteDispatch(oPresentacion.CurrentController.Frame, ".uno:Copy","", 0, Array())
DiapositivaSeleccionar oPresentacion, nNuevo-1
oDispatch.ExecuteDispatch(oPresentacion.CurrentController.Frame, ".uno:Paste", "", 0, Array())
DiapositivaSeleccionar oPresentacion, nNuevo
EndIf
End Sub
</syntaxhighlight>

== Copiar diapositiva por posición ==
Copia la diapositiva identificada por su posición{{Llamada|Notas|3}} '''''nPosActual''''' justo por delante de la diapositiva identificada por su posición '''''nPosNueva''''' en la presentación pasada como argumento.

No se admite el valor 1 para el argumento '''''nPosNueva'''''.

<syntaxhighlight lang="oobas">
Sub DiapositivaCopiaPorPosicion( oPresentacion As Object, nPosActual As Long, nPosNueva As Long )
'--------------------------------------------------------------------------------------------
DiapositivaCopia( oPresentacion, nPosActual - 1, nPosNueva - 1 )
End Sub
</syntaxhighlight>

== Mover diapositiva por índice ==
Mueve la diapositiva identificada por su índice{{Llamada|Notas|1}} '''''nActual''''' justo por delante de la diapositiva identificada por su índice '''''nNuevo''''' en la presentación pasada como argumento.

No se admite el valor 0 para el argumento '''''nActual''''' ni para el argumento '''''nNuevo'''''.

<syntaxhighlight lang="oobas">
Sub DiapositivaMueve( oPresentacion As Object, nActual As Long, nNuevo As Long )
'--------------------------------------------------------------------------------------------
oDispatch = CreateUNOService( "com.sun.star.frame.DispatchHelper")
If nNuevo = 0 OR nActual = 0 Then
' msgbox "Esta opción no es posible"
Beep
ElseIf nNuevo > nActual Then
DiapositivaSeleccionar oPresentacion, nActual
oDispatch.ExecuteDispatch(oPresentacion.CurrentController.Frame, ".uno:Copy","", 0, Array())
DiapositivaSeleccionar oPresentacion, nNuevo
oDispatch.ExecuteDispatch(oPresentacion.CurrentController.Frame, ".uno:Paste", "", 0, Array())
DiapositivaBorra( oPresentacion, nActual )
DiapositivaSeleccionar oPresentacion, nNuevo+1
ElseIf nNuevo < nActual Then
DiapositivaSeleccionar oPresentacion, nActual
oDispatch.ExecuteDispatch(oPresentacion.CurrentController.Frame, ".uno:Copy","", 0, Array())
DiapositivaSeleccionar oPresentacion, nNuevo-1
oDispatch.ExecuteDispatch(oPresentacion.CurrentController.Frame, ".uno:Paste", "", 0, Array())
DiapositivaBorra( oPresentacion, nActual+1 )
DiapositivaSeleccionar oPresentacion, nNuevo
EndIf
End Sub
</syntaxhighlight>

== Mover diapositiva por posición ==
Mueve la diapositiva identificada por su posición{{Llamada|Notas|3}} '''''nPosActual''''' justo por delante de la diapositiva identificada por su posición '''''nPosNueva''''' en la presentación pasada como argumento.

No se admite el valor 1 para el argumento '''''nPosActual''''' ni para el argumento '''''nPosNueva'''''.

<syntaxhighlight lang="oobas">
Sub DiapositivaMuevePorPosicion( oPresentacion As Object, nPosActual As Long, nPosNueva As Long )
'--------------------------------------------------------------------------------------------
DiapositivaMueve( oPresentacion, nPosActual - 1, nPosNueva - 1 )
End Sub
</syntaxhighlight>

= Propiedades de las diapositivas =
== Índice de la diapositiva ==
Devuelve el el índice{{Llamada|Notas|1}} de la diapositiva pasada como argumento.

El índice en realidad no existe como propiedad, sino que la determinamos a partir de la propiedad de sólo lectura '''''Number'''''.

<syntaxhighlight lang="oobas">
Function DiapositivaIndice( oDiapositiva As Object ) As String
'--------------------------------------------------------------------------------------------
DiapositivaIndice = oDiapositiva.Number - 1
End Function
</syntaxhighlight>

== Posición de la diapositiva ==
Devuelve el la posición{{Llamada|Notas|3}} de la diapositiva pasada como argumento.

Esta propiedad es de sólo lectura.

<syntaxhighlight lang="oobas">
Function DiapositivaPosicion( oDiapositiva As Object ) As String
'--------------------------------------------------------------------------------------------
DiapositivaPosicion = oDiapositiva.Number
End Function
</syntaxhighlight>

== Nombre de la diapositiva ==
Establece o devuelve{{Llamada|Notas|4}} el nombre{{Llamada|Notas|2}} de la diapositiva pasada como argumento.

Si se pasa el argumento '''''cNombre''''' se establece como nombre de la diapositiva.

:* Si no se le pasa ningún valor, actúa como función y devuelve el nombre actual.

<syntaxhighlight lang="oobas">
Function DiapositivaNombre( oDiapositiva As Object, Optional cNombre As String ) As String
'--------------------------------------------------------------------------------------------
If Not IsMissing( cNombre ) Then oDiapositiva.Name = cNombre
DiapositivaNombre = oDiapositiva.Name
End Function
</syntaxhighlight>

== Nombre mostrado en la diapositiva ==
Devuelve el nombre{{Llamada|Notas|2}} que se muestra de la diapositiva pasada como argumento.

El nombre mostrado se corresponde con la propiedad '''linkDisplayName''', de sólo lectura, que se localiza (se traduce) al idioma del documento, salvo que se haya establecido un nombre personalizado para la diapositiva.

<syntaxhighlight lang="oobas">
Function DiapositivaNombreMostrado( oDiapositiva As Object ) As String
'--------------------------------------------------------------------------------------------
DiapositivaNombreMostrado = oDiapositiva.linkDisplayName
End Function
</syntaxhighlight>

{{Nota al pie|Notas|El índice de una diapositiva es su número ordinal en la presentación menos uno. La 1ª diapositiva tiene como índice el número 0. La 4ª diapositiva tiene como índice el número 3. Si se agrega o elimina una diapositiva, todas las diapositivas que la suceden renumeran automáticamente su índice.|El nombre de una diapositiva, a menos que se le haya establecido uno personalizado, es <u>la palabra inglesa '''page''' seguida del número de orden de la diapositiva en la presentación</u>. El nombre mostrado al situar el ratón sobre la diapositiva es distinto; se corresponde con la propiedad '''linkDisplayName''', que se localiza (se traduce) al idioma del documento; así, la diapositiva 5ª que muestra como nombre '''''Página 5''''' si el idioma del documento es Español, internamente se denomina '''''page5''''' independientemente del idioma, y es el nombre que debemos utilizar para referirnos a la misma, salvo que se le haya asignado un nombre personalizado. Si se agrega o elimina una diapositiva, todas las diapositivas que la suceden se renombran automáticamente, salvo que se les haya establecido un nombre personalizado, en cuyo caso lo conservan.|La posición de una diapositiva coincide con su propiedad '''Number''', y es un número más que su índice.|Función que actúa como '''Set'''/'''Get''' según se pase o no el argumento opcional; si se pasa el argumento es una función '''Set''' que establece el valor; si no se pasa, es una función '''Get''' que devuelve el valor actual.}}

{{Pie|Macros en Basic para OpenOffice Base|Macros en Basic para OpenOffice Base|Larga=5}}
[[Category:Ver.4.0.x]][[Category:Ver.3.4.x]][[Category:Ver.3.3.x]][[Category:Ver.3.2.x]][[Category:Ver.3.1.x]]

Macros en Basic para OpenOffice Impress - Historial de revisiones

Salva en 13:18 22 jun 2016