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