註解裡顯示超鏈接的圖片

註解裡顯示超鏈接的圖片 (轉貼)

索 引	C0015
主 題	>= 12.0(Office 2007)
版 本	註解裡顯示超鏈接的圖片
說 明	本範例試範如何將圖片匯入註解中，及依圖片的大小來調整註解的尺寸。
參 考

Code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 2 Then Exit Sub
Set rng = Range("A3:A9") '設定範圍
If Union(rng, Target).Address = rng.Address Then
'保留前一個 Target 儲存格
Static chkrange As Range
'刪除前一個註解
If Not chkrange Is Nothing Then
chkrange.Comment.Delete
End If
Dim cmt As Comment
Dim jpgImg As Object
Application.EnableEvents = False
Set chkrange = Target
Set hasComment = Target.Comment
'判斷儲存格是否有註解
If hasComment Is Nothing Then
Set cmt = Target.AddComment
Else
Set cmt = Target.Comment
End If
'圖片填滿註解
fname = ThisWorkbook.Path & "\" & Target
'取得圖片的 高度及寬度
Set jpgImg = CreateObject("WIA.ImageFile")
jpgImg.LoadFile fname
cmt.Shape.Fill.UserPicture fname
cmt.Shape.Height = jpgImg.Height
cmt.Shape.Width = jpgImg.Width
'顯示註解
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Application.EnableEvents = True
End If
End Sub
　

Code

圓戳章-增益集-Excel 2007版

圓戳章-增益集-Excel 2007版 (之轉貼)

索 引	Office 2007 筆記
主 題	圓戳章-增益集-Excel 2007版
版 本	>= 12.0(Office 2007)
說 明	經過大約10天的摸索學習對於Ribbon(功能區 ) XML 檔語法也有一定的認識，接著就開始進入實戰訓練了(加油!)，這次目標是將 圓戳章-增益集 轉換為 2007版增益集，以下將轉換的過程記錄下來….
參 考

• 先來解說 XML 檔，以下為本範例的XML語法

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <!-- Add Custom group to the Home tab in the ribbon--> <ribbon> <tabs> <tab idMso="TabInsert" > <group id="sealGroup1" label="chijanzen Tools" insertBeforeMso="GroupEditing" > <button id="rxSealbtn1" label="圓戳章" image="seal" size="large" onAction="Callseal" /> <button id="rxSealbtn2" label="選項" imageMso="ControlSetControlDefaults" size="large" onAction="Callsealoption" /> </group> </tab> </tabs> </ribbon> </customUI> 

• 從下圖就可以看出<ribbon>、<tabs>、<tab>、<group>、<button>的附屬關析

• 上次文章 Ribbon(功能區 ) 說明中我有整理 出 Ribbon 索引標籤與 XML 標籤名稱的對照表，

• 我要在 「插入」(TabInsert )索引標籤內新增2個按鈕，所以語法為 

      <tab idMso="TabInsert" > <group id="sealGroup1" label="chijanzen Tools"    insertBeforeMso="GroupEditing" > 

Ribbon 索引標籤	XML 標籤名稱
常用	TabHome
插入	TabInsert
版面配置	TabPageLayoutExcel
公式	TabFormulas
資料	TabData
校閱	TabReview
檢視	TabView
開發	TabDeveloper
增益集	TabAddIns

• 建立好群組(group)後，我在群組(group)內新增2個按紐(button)，語法如下

<button id="rxSealbtn1" label="圓戳章" image="seal"
size="large" onAction="Callseal" />
<button id="rxSealbtn2" label="選項" imageMso="ControlSetControlDefaults"
size="large" onAction="Callsealoption" />
　

• 第一個按鈕 圓戳章 使用自訂的圖示 image="seal" ，要如何插入自定圖示請參考 Custom UI Editor Tool

• 第二個按鈕 選項 使用Excel 自帶的圖示 imageMso="ControlSetControlDefaults" ， 要如何知道Excel 自帶圖示樣式及名稱，

請下載 http://www.rondebruin.nl/files/BtnImages.zip

• XML 檔語法寫好後，使用 Custom UI Editor Tool 將 XML 檔存入增益集中。
• 製作完 XML 檔，開始寫 Callback (回乎)程式，程式碼如下

'Callback for rxSealbtn1 onAction
Sub Callseal(control As IRibbonControl)
Dim seal_shp As Shape, actRng As Range
Dim Item As Object
On Error Resume Next
If ThisWorkbook.Sheets("IconSheet").Range("Z1") <> "chijanzen" Then
MsgBox "歡迎使用圓形章程式,第一次使用本程式需作基本資料設定"
sealForm.Show 0
Exit Sub
End If
'插入圓戳章
On Error Resume Next
'刪除已存在的圓戳章
Set seal_shp = ActiveSheet.Shapes("icon")
If Not seal_shp Is Nothing Then seal_shp.Delete
'插入圓戳章(日期為當日)
Set actRng = ActiveCell
With ThisWorkbook.Sheets("IconSheet").Shapes("icon")
.GroupItems.Item(6).TextEffect.Text = Format(Date, "Yyyy/m/d")
.Copy
ActiveSheet.Paste
End With
actRng.Activate
End Sub
　

---

'Callback for rxSealbtn2 onAction
Sub Callsealoption(control As IRibbonControl)
sealForm.Show 0
End Sub
　

• VBA 程式碼也寫完存檔後，接這進行按鈕標題中文化的工作，請參考
  

  解決 Custom UI Editor Tool 不支援中文語系的問題

• 經過以上步驟的加工，圓戳章-增益集-Excel 2007版 就完成了

---

• 圓戳章-增益集-Excel 2007版 檔案下載

• 安裝說明:

附件內有兩個檔案，請解壓縮到同一資料夾內，請執行Install 按鈕安裝程式

　

VBE 密碼:chijanzen

超強密技_用Excel看2008北京奧運直播節目

超強密技：用Excel看2008北京奧運直播節目
文章轉貼_裕毛屋

自從2008年8月8日開幕後，全世界的焦點都在奧運！
先恭喜台灣選手陳葦綾拿下第一面銅牌，真的很厲害！
想知道目前戰況如何嗎？
如果能一邊打報表，一邊看最新戰況，該多好呀！
沒問題！用Office就能做得到！
1. 首先開啟「Excel 選項」。
 

2. 勾選「在功能區顯示[開發人員]索引標籤。再按「確定」即可。
  

3. 再來從「開發人員」內，插入「其它控制項」。

 

4. 選擇「Windows Media Player」，再按「確定」。
 

5. 先拖曳出一塊區域。
 

6. 接著在控制項上按右鍵，選「內容」。

 

7. 再點擊自訂的「…」按鈕。

 

8. 接著把底下想看的電視節目網址貼上去（紅色字），再按「確定」即可。
如果怕吵到其它人，就順便勾選「靜音」吧！

華視
mms://wmslive.media.hinet.net/Weblive_cts_1200

華視休閒娛樂台
mms://wmslive.media.hinet.net/WebLive_CTS_EQ_1200/CTS1200

中天新聞台
mms://wmslive.media.hinet.net/Weblive_CtitvNews_1200

9. 接著再點擊「設計模式」取消設計模式。

 

10. 哇哈哈~我是在「認真」做報表喔！

P.S. 有上電腦課的同學，禁止使用此密技！！超強密技：用Excel看2008北京奧運直播節目