【例子】加圖片在 Comment 內

Emily · 发表于 2003-5-13 06:43

請看外地朋友寫的程式。有備註的地方是後加上的，它的目是改變 comment 的大小。 Option Explicit Const ImgFileformat = "Image Files (*.bmp;*.gif;*.tif;*.jpg;*.jpeg)," & _ "*bmp;*gif;*.tif;*.jpg;*.jpeg" Sub AddPicturesToComments() Dim HasCom Dim Pict As String Dim Ans As Integer Set HasCom = ActiveCell.Comment If Not HasCom Is Nothing Then ActiveCell.Comment.Delete Set HasCom = Nothing GetPict: Pict = Application.GetOpenFilename(ImgFileformat) If Pict = "False" Then End Ans = MsgBox("Open : " & Pict, vbYesNo + vbExclamation, "Use this Picture?") If Ans = vbNo Then GoTo GetPict With ActiveCell .AddComment .Comment.Visible = False .Comment.Shape.Fill.Transparency = 0# .Comment.Shape.Fill.UserPicture Pict '.Comment.Shape.LockAspectRatio = msoTrue ''設定圖片透明度 by chijanzen ' .Comment.Shape.Height = 30# '保持其長寬比例不變 by chijanzen End With 'ActiveCell.Select 'ActiveCell.Comment.Shape.ScaleWidth 3, msoFalse, msoScaleFromTopLeft ' by Emily 'ActiveCell.Comment.Shape.ScaleHeight 4, msoFalse, msoScaleFromTopLeft ' by Emily End Sub

Wayko · 发表于 2005-6-24 12:37

我改成加Excel 文件在注解裏,(即將圖片改成excel文件的內容).

因為一年下來的加工單(用excel文件做的,文件模式一樣)不少,我在用excel做統計資料時,在工單號單元格裏加一注解,而這一注解內容為該單號的正式工單內容,這該多好啊!

謝謝啦!

plxmm · 发表于 2005-6-24 12:46

偶也藏一份啦。

Wayko · 发表于 2005-6-24 13:04

版主呀!

Emily 呀!

記得幫小弟解決問題,我願奉送5朵鮮花來求得一解!

哈哈Emily 有勞啦,誰叫你是版主,總得多出點力.

Emily · 发表于 2005-6-24 13:36

Wayko's 問題:

我改成加Excel 文件在注解裏,(即將圖片改成excel文件的內容). 因為一年下來的加工單(用excel文件做的,文件模式一樣)不少,我在用excel做統計資料時,在工單號單元格裏加一注解,而這一注解內容為該單號的正式工單內容,這該多好啊! 謝謝啦!

Wayko · 发表于 2005-6-24 14:06

Best my regard to Emily,

Emily 's 答案 = 容許時間↓ x 解題能力↑

chenwintek · 发表于 2005-6-25 02:17

zz5151353 · 发表于 2005-6-25 11:11

好東西,收藏,謝謝版主提供分享 !!!

nawong · 发表于 2006-7-4 14:36

謝謝 Emily

jdmlw · 发表于 2010-10-10 20:11

copy不了你的内容啊，大佬

		自动登录	找回密码
密码			免费注册

【例子】加圖片在 Comment 內

再問這位師父,一個類似的問題也能幫忙解答嗎?