Excel VBA 在立即窗口打印出所有shape的名稱

原創 lxljw1314 2020-07-03 18:54

Sub printshapesname()

For s = 1 To ActiveSheet.Shapes.Count
Debug.Print ActiveSheet.Shapes(s).Name
Next

End Sub

發表評論
所有評論
還沒有人評論，想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章

Excel VBA 獲取指定路徑下的文件夾名稱

Sub getfoldername() '獲取指定路徑下的文件夾名稱 Dim fs As Object n = 1 Set fs = CreateO

lxljw1314 2020-07-03 18:54:46

Excel VBA 根據sheet名稱創建相應的文件夾

Sub createfol() '根據sheet名稱創建相應的文件夾 Set fol = CreateObject("scripting.filesystemobject") Dim ws As Worksheet Dim path As

lxljw1314 2020-07-03 18:54:46

Excel VBA 獲取指定路徑下的圖片名稱(帶後綴)/(不帶後綴)/跳出選擇路徑對話框手動選擇路徑

Sub getpicname() '獲取指定路徑下的圖片名稱(※帶後綴) Dim path As String     path = "E:\傢俱圖片\A客廳"      n = 2      Filename = Dir(path &

lxljw1314 2020-07-03 18:54:46

Excel VBA 根據合併單元格大小調整圖片大小

Sub adjustpic()  '根據合併單元格大小調整圖片大小 Dim Pic As Shape For Each Pic In ActiveS

lxljw1314 2020-07-03 18:54:46

Excel VBA 例子

5. 在同一個模塊裏輸入另外一個過程： Sub GetFiles() Dim nfile As String Dim nextRow As Integer 'next row index nextRow = 1 With Workshee

Roenfun 2020-06-30 05:25:33

【Excel VBA】Day01 Excel VBA基礎

1.1 VBA語言元素概覽 Sub VBA_Demo() ' This is a simple VBA Example Dim Total As Long, i As Long Total = 0 For i = 1 To

htsait4113 2020-06-27 03:38:19

[VBA] Excel錶快速合併，多個Excel表合併到一個裏面，只保留一個表頭

修改了這片文章中提供的代碼https://blog.csdn.net/shuai9201/article/details/73322974以實現合併的結果只有一個表頭的功能。 Sub MergeMultiFiles() D

Luyy94 2020-06-26 13:04:01

Excel VBA - Range對象

Rows.Count    顯示所有行的數目 Columns.Count    顯示所有列的數目 Cells(Rows.Count, 1).End(

McDelfino 2020-06-16 03:55:10

Excel VBA - Workbook對象

Workbooks(1).Name Workbooks(1).FullName    工作簿地址加名字 Workbooks(1).Path    工作簿地址 Workbooks(1).Close SaveChanges:=False   

McDelfino 2020-06-16 03:55:10

Excel VBA - 控件與用戶窗體 及 常用函數

參考：http://msdn.microsoft.com/zh-cn/library/ktwtk9ff%28v=VS.80%29.aspx  TextBox事件  →KeyPress事件的語法如下： KeyANSI只是個參數，所以可以改

McDelfino 2020-06-16 03:55:10

Excel VBA - Application對象

Application.Version    顯示Excel的版本號 Application.UserName    顯示當前用戶的用戶名 Appl

McDelfino 2020-06-16 03:55:10

EXCEL 公式 多列轉成一行

EXCEL 公式 2列多行轉成1行 =OFFSET($A1,ROUNDUP(COLUMN(A1)/2,0)-1,MOD(COLUMN(B1),2)) 3列多行轉成1行 =OFFSET($A1,ROUNDUP(COLUMN(A1)/3,0

璀璨_帝禹 2020-06-14 17:20:17

EXCEL公式 VBA 隨機生成不重複值

宏代碼 Sub 不重複的值() Dim arr(1 To 100000, 1 To 1), dic Set dic = CreateObject("scripting.dictionary") Do Until i = 100000

璀璨_帝禹 2020-06-14 17:20:17

VBA的Format函數

Format(值,格式(可選參數)) 一、數字格式： 1、General Number：普通數字，可以用來去掉千位分隔號和無效 0 。 如：Format("1,234,567.80", "General Number")="123456

璀璨_帝禹 2020-06-14 17:20:17

VBA 讀取/寫入文本文件

VBA 讀取/寫入文本文件   1、Open 語句  打開方式有  Input：以讀取方式打開。 Output：以寫入方式打開。 Append：以追加方式，即添加內容到文件末尾打開。 Binary：以二進制方式打開。 Random

璀璨_帝禹 2020-06-14 17:20:17