EXCEL 使用宏 打水印

Sub 宏1()
'
' 宏1 宏   //用于调整列宽 加边框
'
' 快捷键: Ctrl+w
'
    ActiveCell.Cells.Select
    ActiveCell.Cells.EntireColumn.AutoFit
    ActiveCell.Columns("A:A").EntireColumn.Select
    Selection.ColumnWidth = 3.4
    ActiveCell.Offset(, ).Columns("A:A").EntireColumn.Select
    Selection.ColumnWidth =
    ActiveCell.Offset(, ).Columns("A:A").EntireColumn.Select
    Selection.ColumnWidth =
    ActiveCell.Offset(, ).Columns("A:A").EntireColumn.Select
    Selection.ColumnWidth = 6.78
    ActiveCell.Offset(, ).Columns("A:A").EntireColumn.Select
    Selection.ColumnWidth =
    ActiveCell.Offset(, ).Columns("A:A").EntireColumn.Select
    Selection.ColumnWidth =
    ActiveCell.Offset(, -).Columns("A:A").EntireColumn.Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation =
        .AddIndent = False
        .IndentLevel =
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    ActiveCell.Offset(, ).Columns("A:A").EntireColumn.Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation =
        .AddIndent = False
        .IndentLevel =
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    ActiveCell.Offset(, -).Range("A1:F75").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex =
        .TintAndShade =
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex =
        .TintAndShade =
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex =
        .TintAndShade =
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex =
        .TintAndShade =
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex =
        .TintAndShade =
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex =
        .TintAndShade =
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex =
        .TintAndShade =
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex =
        .TintAndShade =
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex =
        .TintAndShade =
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex =
        .TintAndShade =
        .Weight = xlThin
    End With
End Sub

Sub 宏2()
'
' 宏2 宏
'
' 快捷键: Ctrl+Shift+O
'
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 67.8, 73.2, , _
        106.8).Select
    Selection.ShapeRange.IncrementRotation -28.98145
    Selection.ShapeRange.IncrementLeft -26.4
    Selection.ShapeRange.IncrementTop -2.1204724409
    Selection.ShapeRange().TextFrame2.TextRange.Characters.Text = ""
    Selection.ShapeRange().TextFrame2.TextRange.Characters(, ).ParagraphFormat. _
        FirstLineIndent =
    With Selection.ShapeRange().TextFrame2.TextRange.Characters(, ).Font
        .Bold = msoTrue
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
        .Fill.ForeColor.TintAndShade =
        .Fill.ForeColor.Brightness =
        .Fill.Transparency =
        .Fill.Solid
        .Size =
        .Name = "+mn-lt"
    End With
    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.Line.Visible = msoFalse
    Application.CommandBars("Format Object").Visible = False
    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorDark1
        .ForeColor.TintAndShade =
        .ForeColor.Brightness =
        .Transparency = 0.8299999833
        .Solid
    End With
End Sub

Sub 宏3()
'
' 宏3 宏
'
' 快捷键: Ctrl+Shift+i
'
    Application.CutCopyMode = False
    Selection.Copy
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementTop
    Selection.ShapeRange.IncrementLeft -
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementTop
    Selection.ShapeRange.IncrementLeft -
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementTop
    Selection.ShapeRange.IncrementLeft -
End Sub