VBA Help - Align to Group

Jamie Chestnut
over 1 year ago

Added video explanation in the comments.



I'm trying to align the package text to this price group but I'm having trouble. I usually have multiple prices on a banner so the price group name would have to be unique. Like "Price 1" or "$12.99". Not sure how to go about this. Thanks!


Private Sub Make_Click()
  Dim Dlr As Shape
  Dim Cnt As Shape
  Dim Sym As Shape
  Dim Tax As Shape
  Dim Pk As Shape
  Dim Price As Shape
  Dim TextType As String
  Dim x As Double, y As Double, w As Double, h As Double
  Const space_dist As Double = 0.1
  Dim sr As New ShapeRange
  
  Set Dlr = ActiveLayer.CreateArtisticText(0, 0, PriceFrm.Dollar.Value, , , "Gotham Bold", 100)
  Set Cnt = ActiveLayer.CreateArtisticText(0, 0, PriceFrm.Cents.Value, , , "Gotham Bold", 50)
  Set Sym = ActiveLayer.CreateArtisticText(0, 0, "$", , , "Gotham Bold", 50)
  Set Tax = ActiveLayer.CreateArtisticText(0, 0, PriceFrm.Tax_Options.Value, , , "Gotham Bold", 9, , , , cdrCenterAlignment)
  
  'Cent Position
  Cnt.AlignToShape cdrAlignTop, Dlr
  Cnt.LeftX = Dlr.RightX + space_dist
  
  '$ Position
  Sym.AlignToShape cdrAlignTop, Dlr
  Sym.RightX = Dlr.LeftX - 0.07
  
  
  'Tax Position
  Cnt.GetBoundingBox x, y, w, h
  Tax.SetSize w
  Tax.AlignToShape cdrAlignHCenter, Cnt
  Tax.TopY = Cnt.BottomY - 0.07
  
  'Select & Group Price
  sr.Add Dlr
  sr.Add Cnt
  sr.Add Sym
  sr.Add Tax
  sr.Group.Name = "Price"
  sr.GetBoundingBox x, y, w, h
  
  'Add Package
  If Pk_MultiPage.Value = 0 Then
  Set Pk = ActiveLayer.CreateArtisticText(0, 0, Pk_Options_Std.Value, , , "Gotham Bold", 9, , , , cdrCenterAlignment)
  Pk.SetSize w
  Pk.AlignToShape cdrAlignHCenter, Group.Name = "Price"
  
  
    Else
    If Pk_MultiPage.Value = 1 Then
    Set Pk = ActiveLayer.CreateArtisticText(0, 0, Pk_Options_Stk.Value, , , "Gotham Bold", 9, , , , cdrCenterAlignment)
  
        Else
        If Pk_MultiPage.Value = 2 Then
        Set Pk = ActiveLayer.CreateArtisticText(0, 0, Pk_Options_Nw.Value, , , "Gotham Bold", 9, , , , cdrCenterAlignment)
  
        End If
    End If
  End If

End Sub
  • 0 over 1 year ago

    Here's the video.