Continuamos con el Decreto 28/2016, de 2 de febrero, de las viviendas con fines turísticos y de modificación del Decreto 194/2010, de 20 de abril, de establecimientos de apartamentos turísticos.
Artículo 6 Requisitos y servicios comunes.
Continuamos con el Decreto 28/2016, de 2 de febrero, de las viviendas con fines turísticos y de modificación del Decreto 194/2010, de 20 de abril, de establecimientos de apartamentos turísticos.
Artículo 6 Requisitos y servicios comunes.
Vamos a realizar nuestra tercera diapositiva, que está vez consiste en una con un Título y un Gráfico, por lo que el Layout que vamos a utilizar es el 8.
El código VBA de la tercera diapositiva es el siguiente:
Private Sub Diapositiva3()
X = 3
'vamos a crear una dispositiva con Titulo y Gráfico
Set DiapoPP = PresentacionPP.slides.Add(Index:=X, Layout:=8)
'Agregar un logo guardado
CrearLogo
'Agregamos Texto que se encuentra en una hoja, es el Titulo
DiapoPP.Shapes(1).TextFrame.TextRange.Text = "Resumen Servicios Realizados"
'Alineamos el texto
DiapoPP.Shapes(1).TextFrame.TextRange.ParagraphFormat.Alignment = msoAlignCenter
'DANDO FORMATO AL TEXTO
'Usando With / End With
With DiapoPP.Shapes(1)
.TextFrame.TextRange.Font.Name = "Times"
.TextFrame.TextRange.Font.Color = vbBlue
'.TextFrame.TextRange.Font.Size = 24
'.TextFrame.TextRange.Font.Italic = True
.TextFrame.TextRange.Font.Bold = True
End With
'Crear Texto en la forma 2
'vbnewline nos crea una linea nueva
'eliminamos la forma para que no se vea el texto que hay detras
DiapoPP.Shapes(2).Delete
'GRAFICO
'Pegar gráfico como bitmap
Sheets("ConexionPowerPoint").ChartObjects("Circular1").Chart.CopyPicture
DiapoPP.Shapes.Paste
'ancho del grafico
AppPP.ActiveWindow.Selection.ShapeRange.Width = 19.13 * CM
'Alineamos
AppPP.ActiveWindow.Selection.ShapeRange.Left = 7.37 * CM
AppPP.ActiveWindow.Selection.ShapeRange.Top = 4.38 * CM
End Sub
EXPLICACIÓN:
El valor de X está vez es 3 ya que estamos realizando la tercera diapositiva.
Luego tenemos la instrucción que nos indicará que tipo de Layout será que esta vez es el 8 que nos insertará un título y un gráfico.
Set DiapoPP = PresentacionPP.slides.Add(Index:=X, Layout:=8)
Luego seguimos insertando el logo, agregamos el texto del título y lo alineamos.
Continuamos dando formato al texto.
La línea que nos pega el gráfico es la siguiente:
Sheets("ConexionPowerPoint").ChartObjects("Circular1").Chart.CopyPicture
DiapoPP.Shapes.Paste
Hay que tener en cuenta que Circular1 es el nombre que se le da en Microsoft Excel al Gráfico.
Continueamos dado el ancho al gráfico y lo alineamos.
Así nos queda la tercera diapositiva:
En la mañana del Sábado 9 de Diciembre del 2023 , volveremos con el Concurso de Menores.
Este año celebramos el VI Concurso Social de Menores 2023, que será en la Aldea de El Rocío.
El lugar establecido es el Lateral del Santuario.
El teléfono para las inscripciones es 954 272 604.
Por supuesto, los organizadores os esperan para que podáis disfrutarlos.
Lo organiza el Real Club de Enganches de Andalucía.
Os muestro mi último Dashboard realizado de ventas.
Vamos a explicarlo un poquito.
En el lado izquierdo hemos insertado unos segmentadores, que para los que no sepan lo que son, son unos elementos que se utilizan para filtrar los gráficos.
En la parte de arriba hemos insertado unos círculos unidos por unas líneas, donde nos especifican una serie de datos generales.
El primer gráfico que nos encontramos, el de Análisis por Categoría, hemos utilizado unos triángulos como barras de datos, que le da más originalidad.
Más a la derecha hemos insertado las tres categorías más alta por género.
Más a la derecha hemos insertado un gráfico de columnas por medios de pago, debajo de éste hemos realizado otros gráfico con triángulos por tipo de cliente.
Debajo de estos gráficos hemos insertado uno de líneas que nos muestra los Impuestos por Ventas.
A la derecha de éste último, hemos puesto el horario de mayor ventas, con las horas de más ventas, y las ciudades.
Y el último gráfico nos muestra las ventas por día de la semana.
La función Hallar hace pocas entradas hemos hablado de ella. Esta función nos devuelve el número de carácter en el que se encuentra el carácter o cadena buscada, por lo que nos da como resultado un número.
Tenemos el siguiente rango de datos:
Primero vamos a buscar la palabra "Supervisor" con la función Hallar, y hemos introducido la siguiente fórmula:
=HALLAR("Supervisor:";A3)
Es fácil de comprender, lo que hace es buscarnos la palabra Supervisor en la celda, y nos dará un número que es donde comienza dicha palabra en la celda anterior.
Continuamos con el Decreto 28/2016, de 2 de febrero, de las viviendas con fines turísticos y de modificación del Decreto 194/2010, de 20 de abril, de establecimientos de apartamentos turísticos.
Mi jefa escucha las conversaciones entre compañeros/as por las cámaras de seguridad, ¿es legal?