昱得資訊工作室
麻辣學園
歡迎光臨, 訪客. 請先 登入註冊一個帳號.
2014-09-18, 01:35:33
昱得資訊工作室
首頁 說明 登入 註冊 想當作者?
新聞: 會員注意!!麻辣家族討論區已轉換新系統,請移駕[麻辣家族新論壇]!!


+  麻辣家族討論區
|-+  MS Office 系列
| |-+  EXCEL
| | |-+  Excel程式區 (版主: Hsieh)
| | | |-+  求助:如何全選所有物件(ex:圖片.文字方塊等等)
0 會員 以及 1 訪客 正在閱讀本篇主題. « 上一篇主題 下一篇主題 »
頁: [1] 向下 列印
作者 主題: 求助:如何全選所有物件(ex:圖片.文字方塊等等)  (閱讀 4925 次)
keny1021
中學生
*
離線 離線

文章: 42


求助:如何全選所有物件(ex:圖片.文字方塊等等)
« 於: 2008-02-27, 06:07:48 »

求助各位大大
附件中有以下:
圖片(Picture)
文字藝術師(WordArt)
文字方塊(Text Box)
等之物件.如何用vba運用使其全選後

小弟則能
設定摘要資訊:使其大小位置不隨儲存格改變並列印物件
求助各位大大幫忙~謝謝




* 如何全選所有物件.rar (0 KB - 已被下載 8 次.)
已記錄
Hsieh
版主
*
離線 離線

會員性別: 男
文章: 5729



Re: 求助:如何全選所有物件(ex:圖片.文字方塊等等)
« 回覆文章 #1 於: 2008-02-27, 08:30:12 »

ActiveSheet.Shapes.SelectAll
  With Selection
    .Placement = xlFreeFloating
    .PrintObject = True
  End With
已記錄

回答滿意嗎?
  記得告訴我哦!!
keny1021
中學生
*
離線 離線

文章: 42


Re: 求助:如何全選所有物件(ex:圖片.文字方塊等等)
« 回覆文章 #2 於: 2008-02-27, 10:32:59 »

謝謝hsieh 大大

再請教如果小弟檔案中共有20個工作表
則設定工作群組後進行下述程式
ActiveSheet.Shapes.SelectAll
  With Selection
    .Placement = xlFreeFloating
    .PrintObject = True
  End With

則出現錯誤.單一工作表執行上述程式則無誤
麻請大大在幫個忙
已記錄
Hsieh
版主
*
離線 離線

會員性別: 男
文章: 5729



Re: 求助:如何全選所有物件(ex:圖片.文字方塊等等)
« 回覆文章 #3 於: 2008-02-27, 14:27:35 »

程式碼:
Sub nn()
Dim sh As Worksheet
For Each sh In Sheets
sh.Select
If sh.Shapes.Count > 0 Then
ActiveSheet.Shapes.SelectAll
  With Selection
    .Placement = xlFreeFloating
    .PrintObject = True
  End With
End If
Next
End Sub
已記錄

回答滿意嗎?
  記得告訴我哦!!
keny1021
中學生
*
離線 離線

文章: 42


Re: 求助:如何全選所有物件(ex:圖片.文字方塊等等)
« 回覆文章 #4 於: 2008-02-29, 10:40:59 »

程式碼:
Sub nn()
Dim sh As Worksheet
For Each sh In Sheets
sh.Select
If sh.Shapes.Count > 0 Then
ActiveSheet.Shapes.SelectAll
  With Selection
    .Placement = xlFreeFloating
    .PrintObject = True
  End With
End If
Next
End Sub
已記錄
keny1021
中學生
*
離線 離線

文章: 42


Re: 求助:如何全選所有物件(ex:圖片.文字方塊等等)
« 回覆文章 #5 於: 2008-02-29, 10:41:16 »


謝謝hsieh大大

執行結果正如小弟所需
已記錄
頁: [1] 向上 列印 
« 上一篇主題 下一篇主題 »
自訂搜尋
跳到:  


Google PageRank Checker
本頁花了 2.281 秒, 以及 20 次的資料庫查詢.