编写一个好看的编程水印日期，可以考虑以下几个方面：
简洁明了：
日期应该简洁，避免过多的装饰，以保持水印的清晰度。
易读性：
选择一种易于阅读的字体和颜色，确保日期在各种背景下都能清晰可见。
位置：
水印的位置应该合适，通常放在图片或文档的某个角落，但不影响主要内容。
风格：
水印的风格应与整体设计协调，可以是简洁的文本，也可以是带有装饰的文本。
```vba
Sub InsertWatermarkWithDate()
Dim ws As Worksheet
Dim watermark As Shape
Dim watermarkText As String
Dim fontSize As Integer
Dim transparency As Double
' 设置水印内容和样式
watermarkText = "机密文件 " & Format(Date, "yyyy-MM-dd")
fontSize = 48
transparency = 0.5
' 获取当前工作表
Set ws = ActiveSheet
' 如果已有水印,先删除
On Error Resume Next
ws.Shapes("Watermark").Delete
On Error GoTo 0
' 在工作表中插入文本框作为水印
Set watermark = ws.Shapes.AddTextEffect(msoTextEffect1, watermarkText, "Arial", fontSize, _
msoFalse, msoFalse, 200, 200)
' 设置水印样式
With watermark.TextFrame2.TextRange.Font
.Fill.ForeColor.RGB = RGB(200, 200, 200) ' 灰色字体
.Fill.Transparency = transparency ' 半透明
End With
' 旋转水印 45 度
watermark.Rotation = 45
' 锁定水印,防止误删
watermark.Locked = True
End Sub
```
在这个示例中，日期使用了`Format（Date, "yyyy-MM-dd"）`来获取当前日期，并以`yyyy-MM-dd`的格式显示。字体颜色为灰色，透明度为50%，并且水印旋转了45度，以增强视觉效果。
你可以根据需要调整字体大小、颜色、透明度和位置，以适应不同的应用场景。