VBA：群組Group與取消群組Ungroup

這幾天小編覺得一張一張圖輸出很累，然後圖又要增加其他標籤，決定做一個群組自動建群的VBA，然後順便輸出成照片，如下圖，有2張股票市場常見的圖，小編透過文字方塊增加一個8021的文字方塊在走勢圖中，來看看怎樣群組化，滑鼠點選然後選群組 XD

圖1.範例圖檔

更正：VBA 基本語法 先來一下 MSDN：群組、 MSDN：取消群組

首先你要知道你物件的名稱這部分，

可以簡單透過Shapes.Count+for方式來逐一檢查是哪一個

 For i = 1 To activesheet.Shapes.Count

        

    Set myShape = activesheet.Shapes(i)

            

        With myShape

                .selected

                

                debug.print .Name

        End With

    

Next

小編自己的物件名稱為"Chart 4", "Chart 5", "TextBox 13"，要群組化很簡單就是下ActiveSheet.Shapes.Range(XXX).Group

指令即可，但多物件要怎做?

之前有一篇自動存檔的教學，當中有提到ARRAY(工作表名稱)，概念是一樣的。

先用陣列Array("Chart 4", "Chart 5", "TextBox 13")包物件起來，然後再用

SHARPES.RANGE().GROUP包起來即可，如下：

ActiveSheet.Shapes.Range(Array("Chart 4", "Chart 5", "TextBox 13")).Group

相反要解除，透過UNGroup即可。

那前面小編有提到想要自動輸出成照片.....這可不是透過EXPORT指令，因為Shapes物件沒這好用的方法 xd 微軟大大聽到麻煩未來把這物件增加這功能，感恩。

小編是CopyPicture方式來滿足此一需求，之前有一篇line自動傳圖的文章有提過。

vba：

        來檢查一下，輸出成功.. (/^▽^)/...未來都用這招發圖好了省事。

石油與xxxx股價關係

透過yahoo資料，做油價跟產業公司股價的關係整理。

公司是隨便選的，沒特別用意，勿當股票投資參考依據。

價格資料：月資料。

圖1.油價跟股價走勢

圖2.資料維護

說明：keyin 是手工維護，cal是資料來源有缺，用上下期作平均值計算。

資料下載

石油upup!!

 以下單純資料整理不作為投資理財參考，僅是自己寫給自己看，另外當分享。

說明：以月線來看最近一周，油價開始反彈了!!!!

圖1.

週籌碼分析：

圖2.外資變化

圖3.個股外資持股分析

說明：明顯第一到第三家買比賣多

圖4.基本分析比較

說明：第一家與第三家稅後毛利率成長比較強，存貨周轉率第一家特好

接下來把第一家跟第三家資料調出來比比看：

圖5.第一家

圖6.第三家

圖7.市場股價與籌碼走勢

先整理到這裡，累了!!

小結：第一家跟第三家先放在口袋裡，養看看，哈。

股票：血氧機面面觀

這不是勸買股票，也不是介紹血氧機，千萬別誤會，而是提醒風險。 

瀏覽某跨國電商的購物發現血氧機開始變"無敵折扣價"，不知道國內某代工大廠的動向是否受影響。

某營收公司現況

股票：外資投信籌碼(8/28)

 以下是無聊亂整理，不作為股票投資參考。

8/28週：

股票：集保庫存人數增減(8/27)

 今天很偷懶，貼成一整張照片，簡單分享，沒特別用途，有用到資訊的人可以參考歐，但投資理財自負盈虧，不負任何責任。

貢寮紀行