PLZ HELP ME . Sub ChangeColorToBlack() ' Ensure there are selected objects If ActiveSelection.Shapes.Count = 0 Then MsgBox "Please select at least one object." Exit Sub End If Dim sr As ShapeRange Set sr = ActiveSelectionRange Dim sh As Shape For Each sh In sr.Shapes ' Check if the shape has a uniform fill If sh.Fill.Type = cdrUniformFill Then Dim color As Color Set color = sh.Fill.UniformColor ' Check if the color is not white in RGB or CMYK If Not (color.Red = 255 And color.Green = 255 And color.Blue = 255) And _ Not (color.CMYKCyan = 0 And color.CMYKMagenta = 0 And color.CMYKYellow = 0 And color.CMYKBlack = 0) Then ' Change the color to black sh.Fill.UniformColor.RGBAssign 0, 0, 0 ' Black in RGB End If End If Next sh MsgBox "Color change complete." End Sub
Sub changecolor() ' Ensure there are selected objects If ActiveSelection.Shapes.Count = 0 Then MsgBox "Please select at least one object." Exit Sub End If Dim sr As ShapeRange Set sr = ActiveSelectionRange Dim sh As Shape For Each sh In sr.Shapes If sh.Fill.Type = cdrUniformFill Then 'Check if the shape has a uniform fill If Not (sh.Fill.UniformColor.IsWhite) Then ' Check if the color is not white in RGB or CMYK sh.Fill.ApplyUniformFill CreateRGBColor(0, 0, 0) ' Change the color to black End If End If Next sh MsgBox "Color change complete." End Sub
@@dreamnets1981 hola, que es lo que necesita que haga la macro para poder ayudarle, porque solo corregui el codigo que me envio y eso es lo que entendi. saludos
@@ractor1 "Todo lo que quiero es crear un macro que convierta cualquier color en negro, excepto el blanco, y que se aplique a diferentes sistemas de color, a los grupos y a los contornos exteriores. Esto me ayudará a separar cada color para los diseños de las camisetas."
Muy buenos tus videos
Gracias por ser parte de esta comunidad :)
Saludos, se puede enviar a imprimir al plotter de DTF desde Corel Draw sin necesidad de pasar por Photo Shop?
Cuando para 2022 amigo
th-cam.com/video/aWNnShZb-dE/w-d-xo.html
Cuando para 2021 amigo
th-cam.com/video/aWNnShZb-dE/w-d-xo.html
PLZ HELP ME . Sub ChangeColorToBlack()
' Ensure there are selected objects
If ActiveSelection.Shapes.Count = 0 Then
MsgBox "Please select at least one object."
Exit Sub
End If
Dim sr As ShapeRange
Set sr = ActiveSelectionRange
Dim sh As Shape
For Each sh In sr.Shapes
' Check if the shape has a uniform fill
If sh.Fill.Type = cdrUniformFill Then
Dim color As Color
Set color = sh.Fill.UniformColor
' Check if the color is not white in RGB or CMYK
If Not (color.Red = 255 And color.Green = 255 And color.Blue = 255) And _
Not (color.CMYKCyan = 0 And color.CMYKMagenta = 0 And color.CMYKYellow = 0 And color.CMYKBlack = 0) Then
' Change the color to black
sh.Fill.UniformColor.RGBAssign 0, 0, 0 ' Black in RGB
End If
End If
Next sh
MsgBox "Color change complete."
End Sub
Sub changecolor()
' Ensure there are selected objects
If ActiveSelection.Shapes.Count = 0 Then
MsgBox "Please select at least one object."
Exit Sub
End If
Dim sr As ShapeRange
Set sr = ActiveSelectionRange
Dim sh As Shape
For Each sh In sr.Shapes
If sh.Fill.Type = cdrUniformFill Then 'Check if the shape has a uniform fill
If Not (sh.Fill.UniformColor.IsWhite) Then ' Check if the color is not white in RGB or CMYK
sh.Fill.ApplyUniformFill CreateRGBColor(0, 0, 0) ' Change the color to black
End If
End If
Next sh
MsgBox "Color change complete."
End Sub
@@ractor1 Gracias, siempre estás en la cima, eres un gran ser humano.💯💙
Lo siento, amigo, quiero que cambie el contorno y el mapa de bits
@@dreamnets1981 hola, que es lo que necesita que haga la macro para poder ayudarle, porque solo corregui el codigo que me envio y eso es lo que entendi. saludos
@@ractor1 "Todo lo que quiero es crear un macro que convierta cualquier color en negro, excepto el blanco, y que se aplique a diferentes sistemas de color, a los grupos y a los contornos exteriores. Esto me ayudará a separar cada color para los diseños de las camisetas."