Здравствуйте!
Есть файл, в нём будут создаваться ценники.
Есть следующие задачи:
1) Выбор модели холодильника из списка (выполнено)
2) Написания цены (возникли некоторые трудности)
Вопрос касается именно второго пункта:
Как видно из примера сама цена должна располагаться поверх синей фигуры.
Суть в следующем - возможно ли реализовать запись данного значения в надпись или фигуру через всплывающий UserForm с элементом TextBox и подтверждением кнопкой OK?
Нигде не смог в интернете найти именно добавление надписи макросом.
Знаю некоторые базовые вещи по макросам, поэтому не ругайтесь если слишком много кода, который был создан при записи макроса нажатием соответствующей кнопки
Вставка синего ценникаСкрытый текст |
---|
Код |
---|
Sub Auto_Open()
'
' Макрос создающий фигуру с ценником и изображением на заднем плане
' Появляется автоматический при открытии или при нажатии на кнопку
' Сочетание клавиш: Ctrl+f
'
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 10, 500, 341, 70 _
).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.UserPicture "C:\Users\alexandra\Pictures\ыыыыыыы.png"
.TextureTile = msoFalse
.RotateWithObject = msoTrue
End With
Selection.ShapeRange.Adjustments.Item(1) = 0
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.ScaleWidth 0.9607438017, msoFalse, msoScaleFromTopLeft
With Selection.ShapeRange.TextFrame2.TextRange.Font
.NameComplexScript = "EuropeExt"
.NameFarEast = "EuropeExt"
.Name = "EuropeExt"
End With
Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "117 000 руб."
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 11). _
ParagraphFormat
.FirstLineIndent = 0
.Alignment = msoAlignCenter
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 8).Font
.Bold = msoTrue
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorLight1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 44
.Name = "EuropeExt"
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(8, 3).Font
.Bold = msoTrue
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorLight1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 44
.Name = "EuropeExt"
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(8, 5).Font
.Bold = msoTrue
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorLight1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 24
.Name = "EuropeExt"
End With
UserForm1.Show
End Sub |
|