EXCEL, WORD AddShape,網頁SVG

SVG圖形Scalable Vector Graph&Excel學習115微笑

Excel學習114

Sub 萬宜芸微笑()
ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0)
ActiveSheet.Shapes.AddShape(msoShapeOval, 240, 250, 40, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveSheet.Shapes.AddShape(msoShapeOval, 320, 250, 40, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
'使用中的試算表.圖形集合.增加圖方法(橢圓oval,左,右,寬,高).填.前景顏色.rgb
End Sub

Excel學習115&WORD鱷魚臉

Sub 萬宜芸微笑()
ActiveDocument.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0)
End Sub
Sub 萬宜芸()
ActiveDocument.Shapes.AddShape(msoShapeOval, 0, 0, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0)
ActiveDocument.Shapes.AddShape(msoShapeOval, 50, 50, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveDocument.Shapes.AddShape(msoShapeOval, 120, 50, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveDocument.Shapes.AddShape(msoShapeRectangle, 90, 80, 20, 50).Fill.ForeColor.RGB = RGB(0, 0, 255)
ActiveDocument.Shapes.AddShape(msoShapeRectangle, 70, 150, 60, 15).Fill.ForeColor.RGB = RGB(255, 0, 0)
'使用中的試算表.圖形集合.增加圖方法(橢圓oval,左,右,寬,高).填.前景顏色.rgb
End Sub

Excel學習115&EXCEL鱷魚臉

Sub 萬宜芸微笑()
ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0)
End Sub
Sub 萬宜芸()
ActiveSheet.Shapes.AddShape(msoShapeOval, 0, 0, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0)
ActiveSheet.Shapes.AddShape(msoShapeOval, 50, 50, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveSheet.Shapes.AddShape(msoShapeOval, 120, 50, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 90, 80, 20, 50).Fill.ForeColor.RGB = RGB(0, 0, 255)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 70, 150, 60, 15).Fill.ForeColor.RGB = RGB(255, 0, 0)
'使用中的試算表.圖形集合.增加圖方法(橢圓oval,左,右,寬,高).填.前景顏色.rgb
End Sub

劉任昌114影片

劉任昌115影片

留言

  1. George2021年12月21日 晚上8:24

    去查弧線指令，很厲害！circle cx="100" cy="128" r="60" stroke="red" stroke-width="12" fill="none" stroke-dasharray="190" stroke-linecap="round"

    回覆刪除

張貼留言

這個網誌中的熱門文章

萬宜芸EXCEL函數&資料IF,AND,OR函數票圖

圖片
Excel學習119 Excel學習120 Excel學習121 EXCEL函數IF,AND,OR =IF(AND(I2<J2,I3>J3),"買入",IF(AND(I2>J2,I3<J3),"賣出",0)) 簡單的決策規則 如果昨天ma5<今天ma20，今天則ma5>ma20，則買 如果昨天ma5>今天ma20，今天則ma5<ma20，則賣 已經學的Excel函數 AND(條件一,條件二) OR(條件一,條件二) IF(條件, 成立執行, 不成立執行) Rank PercentRank Min Max Median Match Index Count Left, Mid, Right, Len 利用MA5與MA20的穿越，判斷買賣點。 =IF(AND(I21J22),"買入",IF(AND(I21>J21,I22) 85 及格 TRUE 60 及格 FALSE 15 當掉 TRUE 65 及格 =IF(A4>=60,"及格","當掉") 資料表Data Table 資料表Table是連續範圍的儲存格資料。將格標放在資料表任何地方，Ctrl往上箭、Ctrl往下箭、Ctrl往右箭，格標跑到資料表的邊緣。 劉任昌119影片 劉任昌120影片 劉任昌121影片
閱讀完整內容

Execl巨集畫圖&加入刪除sub

圖片
Excel學習112 Option Explicit Const topleft As String = "C5" ' anchor cell Const diam As Integer = 180 ' points ' 劉任昌提示參考 https://excelatfinance.com/xlf19/xlf-qg-add-blue-circle.php Sub xlfAddCircle1() '副程式 sub 結束end sub Dim Shp As Shape Dim TLCleft As Double Dim TLCtop As Double TLCleft = Range(topleft).Left TLCtop = Range(topleft).Top Set Shp = ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _ Left:=TLCleft, Top:=TLCtop, _ Width:=diam, Height:=diam) With Shp .Fill.Visible = msoFalse .Line.Weight = 10 .Line.ForeColor.Brightness = 0.4 .ThreeD.BevelTopType = msoBevelCircle End With End Sub Sub 萬宜芸() '副程式 sub 結束end sub Dim Shp As Shape Dim TLCleft As Double '距離左邊Left Dim TLCtop As Double '距離頂端Top Dim i As Integer '宣告整數 TLCleft = 10 ...
閱讀完整內容

萬宜芸excel樞紐分析

圖片
Excel學習122 Excel學習123 劉任昌122影片 劉任昌123影片 劉任昌124影片 Excel函數 AND(條件一,條件二) OR(條件一,條件二) IF巢狀函數(條件, 成立執行, 不成立執行) Rank PercentRank Min Max Median Match Index Count Left, Mid, Right, Len 樞紐分析,把股票報酬率分成五組。 大漲超過6% 小漲超過2% 平盤2%到-2% 大跌超過-2% 小跌超過-2%
閱讀完整內容