Esta información esta recogida del perfil de Likelink de Izaskun García Parada.
ACCIDENTE DE TRABAJO IN ITINERE: ¿de qué se trata?domingo, 31 de marzo de 2024
Accidente de Trabajo in Itinere
jueves, 21 de marzo de 2024
Muestra de Plantilla de Gastos
Os voy a mostrar una plantilla de Gastos e Ingresos que he realizado.
En una parte se encuentra los datos, que por supuesto en la parte de arriba nos calcula los ingresos, los movimientos y los gastos del mes y año seleccionado.
En otra hoja aparte tenemos las tablas dinámicas con nuestros gráfico que nos muestra los ingresos y los gastos.
La primera hoja que tenemos es el Control de Gastos
Aquí tenemos un calendario, además está todo con validación de datos, que como en muchos casos utilizo una hoja de configuración.
En la segunda hoja para las tablas dinámicas con sus gráficos.
viernes, 15 de marzo de 2024
Subida del Salario Mínimo Interprofesional para 2024
Esto se ha recogido del perfil de Likedin de Izaskun García Parada.
jueves, 14 de marzo de 2024
Cuadrante de Servicio Parte 18 - Realización 4 Diapositiva en PowerPoint
Vamos a continuar con el proyecto del Cuadrante de servicio.
Ahora vamos a diseñar la cuarta diapositiva, que en este caso, contendrá dos tablas y un gráfico.
Esta vez hemos elegido una diapositiva que contenga un Título y Gráficos, por lo que va a tener el layout igual a 8.
Por supuesto esta diapositiva tendrá nuestro logo.
Vamos a introducir nuestro código para la cuarta diapositiva:
Private Sub Diapositiva4()
'tendremos dos tablas y un gráfico
X = 4
'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 = "Datos Totales del Servicio"
'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 = RGB(25, 111, 61)
'.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
'CAPTURAS DE LAS TABLAS DINAMICAS COMO BITMAP
'Pegar un rango como bitmap TABLA1, esta tabla empieza en la misma hoja celda B35
Range("B35").CurrentRegion.CopyPicture Appearance:=xlScreen, Format:=xlPicture
DiapoPP.Shapes.Paste
'(se pega en el centro por defecto)
'tamaño de la tabla como imagen
AppPP.ActiveWindow.Selection.ShapeRange.Height = 4.71 * CM
AppPP.ActiveWindow.Selection.ShapeRange.Width = 9.74 * CM
'posicion de la tabla
AppPP.ActiveWindow.Selection.ShapeRange.Left = 3.29 * CM
AppPP.ActiveWindow.Selection.ShapeRange.Top = 11.95 * CM
'TABLA DINAMICA 2
'Pegar un rango como bitmap TABLA1, la segunda tabla empieza en la celda B43
Range("B43").CurrentRegion.CopyPicture Appearance:=xlScreen, Format:=xlPicture
DiapoPP.Shapes.Paste
'(se pega en el centro por defecto)
'tamaño de la tabla como imagen
AppPP.ActiveWindow.Selection.ShapeRange.Height = 3.91 * CM
AppPP.ActiveWindow.Selection.ShapeRange.Width = 12.12 * CM
'posicion de la tabla
AppPP.ActiveWindow.Selection.ShapeRange.Left = 17.91 * CM
AppPP.ActiveWindow.Selection.ShapeRange.Top = 11.95 * CM
'GRAFICO
'Pegar gráfico como bitmap
Sheets("ConexionPowerPoint").ChartObjects("GraficoColumnas").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 4 ya que estamos realizando la cuarta 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.
Tenemos parte del código que lo que nos hace es copiar como una imagen dos tablas dinámicas.
Este es el código que nos pega la tabla dinámica como imagen
Range("B35").CurrentRegion.CopyPicture Appearance:=xlScreen, Format:=xlPicture
DiapoPP.Shapes.Paste
Si vemos nuestra tabla dinámica empieza en la celda B35 y con el currentRegion nos captura hasta que haya un espacio en la tabla dinámica, por lo que las dos tablas dinámicas tienen que tener entre ellas filas en blanco.
La segunda tabla dinámica empieza en la celda B43 y su código sería:
Range("B43").CurrentRegion.CopyPicture Appearance:=xlScreen, Format:=xlPicture
DiapoPP.Shapes.Paste
La línea que nos pega el gráfico es la siguiente:
Sheets("ConexionPowerPoint").ChartObjects("GraficoColumnas").Chart.CopyPicture
DiapoPP.Shapes.Paste
donde GraficoColumnas es el nombre que le hemos dado al gráfico
Así nos ha quedado la Cuarta Diapositiva:
miércoles, 6 de marzo de 2024
Función de Microsoft Excel CONTAR.SI
Vamos a ver la función de Microsoft Excel CONTAR.SI.
Esta función lo que nos hace es contar las celdas en un determinado rango con una condición que damos.
Esta función posee los siguientes argumentos:
- Rango que son todas las celdas que queremos que nos cuente por una condición posteriormente dada.
- Criterio que en este argumento pondremos que dependiendo de este valor nos contará las celdas del rango dado.
Lo primero que tenemos es una tabla con unos determinados datos, en nuestro caso es:
lunes, 4 de marzo de 2024
Mi Premio Andalucía 2024 por el Ayuntamiento de Almonte
El día 28 de febrero del 2024 se han dado los premios de Andalucía 2024 del Ayuntamiento de Almonte, y he tenido la suerte que entre todos los premiados, uno he sido yo.
Por supuesto, agradecer a toda la corporación local y a todas las personas que lo han hecho posible.
Hay que poner en valor, que en los tiempos que estamos viviendo, un ayuntamiento valore a ciertos componentes de la Guardia Civil en el ámbito de la Seguridad Ciudadana, es muy importante, ya que el premio es para los que trabajan por la Seguridad de todos los ciudadanos, que ni el mismo gobierno de España valora estos conceptos.
Por supuesto, que mi persona haya recibido dicho premio, es fruto del trabajo, y que sin la ayuda de mis compañeros hubiese sido imposible, en los más de 23 años que estoy trabajando en mi unidad, que es el Puesto de la Guardia Civil de El Rocío (Huelva), a los que nada más les puedo dar las gracias.
También tengo que dar las gracias a mis padres, que por desgracia, ya han fallecido, por educarme de la forma que lo han hecho, y mostrándome el camino a seguir.
Y por supuesto, a mi mujer Ana, y a mis hijos Claudia y Víctor, que son el motor de mi vida, y los que todos los días, me ayudan a superarme.
-
Recogido del perfil de Francisco Trujillo de Likedin: CONVENIO COLECTIVO DEL BANCO DE ESPAÑA 2023-2024 📜 El Banco de España, anunció el 21/...
-
Seguimos con un nuevo Dashboard realizado en Power Bi, tampoco es muy complejo. En este ejemplo hemos utilizado varias tablas, las cuales...
-
Esto ha sido recogido del perfil de Estela Martin de Likedin Mi opinión técnica sobre este mensaje lanzado por el Ministerio de Trabajo: El...