劉任昌EXCEL VBA繪圖 Sub 劉任昌示範() ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 250, 250, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 320, 250, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle, 280, 280, 40, 50).Fill.ForeColor.RGB = RGB(0, 0, 255) ActiveSheet.Shapes.AddShape(msoShapeRectangle, 270, 340, 60, 20).Fill.ForeColor.RGB = RGB(255, 0, 0) '使用中的試算表.圖形集合.增加圖方法(橢圓oval,左,右,寬,高).填.前景顏色.rgb End Sub 劉任昌WORD VBA繪圖 Sub 劉任昌示範() ActiveDocument.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0) ActiveDocument.Shapes.AddShape(msoShapeOval, 250, 250, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveDocument.Shapes.AddShape(msoShapeOval, 320, 250, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveDocument.Shapes.AddShape(msoShapeIsoscelesTriangle, 280, 280, 40, 50).Fill.Fore...
https://yuchihshan722.blogspot.com/2021/12/excel-weekday.html
回覆刪除