TEMAS de Visual Basic para Aplicaciones

Mostrando del 1 al 10 de 20 registros
<<>>
sin imagen de perfil

.zipQuita Fondo a Imagen en Corel Draw VBA


Visual Basic para Aplicaciones

Actualizado el 22 de Agosto del 2023 por Zeus Alberto (Publicado el 14 de Agosto del 2023)
769 visualizaciones desde el 14 de Agosto del 2023
Bueno estoy tratando de desarrollar un codigo en VBA para Corel que elimine el fondo blanco de las imagenes, pero aun no logro aterrizar un codigo funcional. De momento estoy atorado porque el modelo de clases de Corel no soporta leer bmp.pixel, para comparar el pixel con la tolerancia, dejo el codigo haber si alguien lo puede concretar.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub RemoveWhiteBackground()
    Dim doc As Document
    Dim sr As ShapeRange
    Dim shape As shape
    Dim bmp As Bitmap
    Dim x As Long, y As Long
    Dim bgColor As Long ' Utilizamos Long para almacenar el valor RGB
    Dim tolerance As Integer
 
    Set doc = ActiveDocument
    Set sr = doc.ActivePage.Shapes.All
 
    ' Obtener el valor RGB para el color blanco
    bgColor = RGB(255, 255, 255)
    ' Definir la tolerancia para el rango de colores que consideras "blanco"
    tolerance = 30
 
    For Each shape In sr
        If shape.Type = cdrBitmapShape Then
            Set bmp = shape.Bitmap
            For x = 1 To bmp.SizeWidth ' Usar SizeWidth en lugar de GetWidth
                For y = 1 To bmp.SizeHeight ' Usar SizeHeight en lugar de GetHeight
                    If ColorDistance(bmp.Pixel(x, y), bgColor) < tolerance Then
                        bmp.Pixel(x, y) = RGB(0, 0, 0) ' Cambiar el píxel a negro
                    End If
                Next y
            Next x
        End If
    Next shape
End Sub
 
Function ColorDistance(color1 As Color, color2 As Long) As Double
    Dim redDiff As Double
    Dim greenDiff As Double
    Dim blueDiff As Double
 
    redDiff = color1.Red - GetRValue(color2)
    greenDiff = color1.Green - GetGValue(color2)
    blueDiff = color1.Blue - GetBValue(color2)
 
    ColorDistance = Sqr(redDiff ^ 2 + greenDiff ^ 2 + blueDiff ^ 2)
End Function

Espero alguien tenga una idea para resolver este tema

Les dejo algunas imagenes en PNG que he estado utilizando con este codigo.

Saludos
Atentamente
Ing. Zeus Paez

five-nights-at-freddys-editable-2_1
five-nights-at-freddys-editable-2_2
five-nights-at-freddys-editable-2_5
five-nights-at-freddys-editable-2_6
five-nights-at-freddys-editable-2_7
five-nihts-at-freddys-1-editable_7
five-nihts-at-freddys-1-editable_8
Imágen de perfil
Val: 16
Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

.pdfMACRO VBA PARA BUSCAR ARCHIVOS EN TU PC


Visual Basic para Aplicaciones

,

Excel

Publicado el 12 de Febrero del 2019 por Javier
7.881 visualizaciones desde el 12 de Febrero del 2019
Básicamente el manual es para conseguir buscar y encontrar archivos en vuestro ordenador desde una Hoja de Excel y con ayuda VBA.
Ejecutemos una Macro Excel que será llamada desde un CommandButton. La Macro hará que se listen todos los archivos con el mismo nombre y extensión iguales a uno que anteriormente hayamos escrito en una celda.
Estos archivo aparecerán a partir de otra celda uno debajo del otro, fila por fila, además del archivo aparecerá su ruta.
Imágen de perfil

internetIntroducción a VBA en Office 2010


Visual Basic para Aplicaciones

Publicado el 31 de Agosto del 2018 por Administrador
1.271 visualizaciones desde el 31 de Agosto del 2018
Este artículo sirve de introducción para usuarios que no son programadores de algunas formas básicas de usar la programación de Visual Basic para Aplicaciones (VBA) a fin de ampliar la funcionalidad de Microsoft Office 2010. Incluye una amplia descripción del lenguaje de VBA, algunos detalles clave sobre cómo tener acceso a VBA en distintas aplicaciones de Office 2010, ejemplos simples de programación y algunas aplicaciones de ejemplo (13 páginas impresas).
Imágen de perfil
Val: 16
Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

.pdfUnicos y duplicados VBA Excel


Visual Basic para Aplicaciones

Publicado el 10 de Julio del 2018 por Javier
1.219 visualizaciones desde el 10 de Julio del 2018
En este manual se explica de forma simple, como utilizando una función de Excel podemos descifrar los únicos y duplicados de un rango de celdas previamente seleccionado, y que este rango puede estar situado en cualquier parte de una hoja, aunque la ubicación que presentamos en este manual este situada a partir de la celda “A1”, esto es meramente un ejemplo.
Anterior12Siguiente