🚀🚀 COMO HACER SEMITONOS EN COREL DRAW PARA IMPRIMIR EN DTF | HALFTONE FOR DTF IN CORELDRAW 😎😎

แชร์
ฝัง
  • เผยแพร่เมื่อ 27 ธ.ค. 2024

ความคิดเห็น • 14

  • @VirtualMediaSG
    @VirtualMediaSG 2 หลายเดือนก่อน

    Muy buenos tus videos

    • @ractor1
      @ractor1  หลายเดือนก่อน

      Gracias por ser parte de esta comunidad :)

  • @pedroluisjimenezrodriguez8975
    @pedroluisjimenezrodriguez8975 2 วันที่ผ่านมา

    Saludos, se puede enviar a imprimir al plotter de DTF desde Corel Draw sin necesidad de pasar por Photo Shop?

  • @Shelkograf1
    @Shelkograf1 2 หลายเดือนก่อน

    Cuando para 2022 amigo

    • @ractor1
      @ractor1  หลายเดือนก่อน +1

      th-cam.com/video/aWNnShZb-dE/w-d-xo.html

  • @guillermosilva9734
    @guillermosilva9734 2 หลายเดือนก่อน

    Cuando para 2021 amigo

    • @ractor1
      @ractor1  หลายเดือนก่อน

      th-cam.com/video/aWNnShZb-dE/w-d-xo.html

  • @dreamnets1981
    @dreamnets1981 2 หลายเดือนก่อน

    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

    • @ractor1
      @ractor1  หลายเดือนก่อน +1

      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
      @dreamnets1981 หลายเดือนก่อน

      @@ractor1 Gracias, siempre estás en la cima, eres un gran ser humano.💯💙

    • @dreamnets1981
      @dreamnets1981 หลายเดือนก่อน

      Lo siento, amigo, quiero que cambie el contorno y el mapa de bits

    • @ractor1
      @ractor1  หลายเดือนก่อน

      @@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

    • @dreamnets1981
      @dreamnets1981 หลายเดือนก่อน

      @@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."