午夜无码人妻av大片色欲_ VBA技術(shù)：你需要知道的一些VBA操作形狀的代碼

excelperfect

標簽：VBA，Shape對象

本文介紹使用VBA創(chuàng )建和操控形狀的知識。

在Excel中，可以通過(guò)功能區“插入”選項卡“插圖”組中的“形狀”庫按鈕在工作表中插入形狀?？梢允褂眯螤顏?lái)可視化數據、在形狀中添加文本、作為執行宏代碼的按鈕，等等。

使用AddShape方法創(chuàng )建形狀

要使用VBA在Excel中創(chuàng )建形狀對象，必須調用AddShape方法。該方法有5個(gè)必需的參數：參數Type，想要生成的形狀類(lèi)型名；參數Left，放置到工作表中形狀的左側位置；參數Top，放置到工作表中形狀的頂部位置；參數Width，形狀的寬度；參數Height，形狀的高度。

下面的VBA代碼展示了如何創(chuàng )建2個(gè)形狀并將它們存儲在變量中以便后面引用。

Sub CreateShape() Dim shp1 As Shape Dim shp2 As Shape

Set shp1 = ActiveSheet.Shapes.AddShape( _ msoShape16pointStar, _ ActiveCell.Left, _ ActiveCell.Top, 80, 27)

Set shp2 = ActiveSheet.Shapes.AddShape( _ 94, ActiveCell.Left, _ ActiveCell.Top, 80, 27)End Sub

選擇形狀類(lèi)型

VBA可以使用大量的形狀類(lèi)型，如下圖1-圖10所示。

圖1

圖2

圖3

圖4

圖5

圖6

圖7

圖8

圖9

圖10

確定要創(chuàng )建的形狀后，獲取形狀文本名稱(chēng)或枚舉編號。將使用MSOAutoShapeType引用來(lái)編碼所需的確切形狀。

如果已經(jīng)在電子表格中創(chuàng )建了形狀，則可以使用下面的代碼得到其枚舉代碼，以便在代碼中引用。

Sub DetermineShapeType() Dim ActiveShape As Shape Dim UserSelection As Variant
 Set UserSelection = ActiveWindow.Selection
 On Error GoTo NoShapeSelected Set ActiveShape = ActiveSheet.Shapes(UserSelection.Name) On Error Resume Next
 MsgBox '所選形狀類(lèi)型:' & ActiveShape.AutoShapeType Exit Sub
NoShapeSelected: MsgBox '沒(méi)有選擇形狀!'End Sub

確定形狀位置

有兩個(gè)屬性可以修改，用以更改工作表中形狀的位置。這兩個(gè)屬性是形狀的Left和Top值，如下圖11所示。

圖11

如果不確定形狀的大小，有兩種常用的方法可以調整形狀的大小。

方法1：基于工作表中某單元格左側和頂部的位置。下面的代碼顯示了如何使用單元格B1的Left值和單元格B10的Top值來(lái)重新放置所創(chuàng )建的矩形。

Sub ShapePositionFromCell() Dim shp As Shape

Set shp = ActiveSheet.Shapes.AddShape( _ msoShapeRectangle, _ Range('B1').Left, _ Range('B10').Top, _ 100, 50)End Sub

方法2：可以在工作表中根據自己的喜好手動(dòng)定位形狀，并使用VBA讀取左側和頂部位置。下面的代碼在消息框中顯示了當前所選形狀（ActiveShape）左側和頂部的位置。

Sub DetermineShapePosition() Dim ActiveShape As Shape Dim UserSelection As Variant
 Set UserSelection = ActiveWindow.Selection
 On Error GoTo NoShapeSelected Set ActiveShape = ActiveSheet.Shapes(UserSelection.Name) On Error Resume Next
 MsgBox '左側位置: ' & ActiveShape.Left & vbNewLine & _   '頂部位置: ' & ActiveShape.Top Exit Sub
NoShapeSelected:  MsgBox '沒(méi)有選擇形狀!'End Sub

確定形狀大小

可以使用VBA修改兩個(gè)屬性來(lái)更改形狀的大小。這兩個(gè)屬性是形狀的Width值和Height值，如下圖12所示。

圖12

如果不確定形狀的大小，有兩種常用的方法可以調整形狀的大小。

方法1：可以基于單元格區域的大小。

Sub ShapeSizeFromRange() Dim shp As Shape Dim rng As Range

Set rng = Range('A1:C4')

Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _ ActiveCell.Left, _ ActiveCell.Top, _ rng.Width, _ rng.Height)End Sub

方法2：可以手工按自己的意愿創(chuàng )建形狀，然后使用VBA讀取其寬度和高度。

Sub DetermineShapeSize() Dim ActiveShape As Shape Dim UserSelection As Variant
 Set UserSelection = ActiveWindow.Selection
 On Error GoTo NoShapeSelected Set ActiveShape = ActiveSheet.Shapes(UserSelection.Name) On Error Resume Next
 MsgBox '寬度: ' & ActiveShape.Width & vbNewLine & _   '高度: ' & ActiveShape.Height Exit Sub
NoShapeSelected:  MsgBox '沒(méi)有選擇形狀!'End Sub

格式化文本

代碼如下：

Sub CreateShapeWithText() Dim shp As Shape

Set shp = ActiveSheet.Shapes.AddShape( _ msoShape16pointStar, _ ActiveCell.Left, _ ActiveCell.Top, _ 160, 60)

'在形狀中添加文本 shp.TextFrame2.TextRange.Text = '完美Excel'

'加粗/斜體/下劃線(xiàn) With shp.TextFrame2.TextRange.Font .Bold = True .Italic = True .UnderlineStyle = msoUnderlineDottedLine

'改變文本顏色 .Fill.ForeColor.RGB = RGB(225, 140, 71) '改變文本大小 .Size = 14 End With

'居中對齊 shp.TextFrame.HorizontalAlignment = xlHAlignCenter shp.TextFrame.VerticalAlignment = xlVAlignCenterEnd Sub

填充顏色和邊框

代碼如下：

Sub CreateShapeWithBorder() Dim shp As Shape
 Set shp = ActiveSheet.Shapes.AddShape( _   msoShapeRoundedRectangle, _   ActiveCell.Left, _   ActiveCell.Top, _   80, 27)
 '填充顏色 shp.Fill.ForeColor.RGB = RGB(253, 234, 218) '邊框線(xiàn)條樣式 shp.Line.DashStyle = msoLineDashDotDot '邊框顏色 shp.Line.ForeColor.RGB = RGB(252, 213, 181) '調整邊框寬度 shp.Line.Weight = 2 '刪除邊框 shp.Line.Visible = FalseEnd Sub

改變形狀類(lèi)型

如果要更改現有形狀的類(lèi)型，可以將AutoShapeType設置為不同的形狀類(lèi)型值。

Sub ChangeShapeType() Dim shp As Shape

Set shp = ActiveSheet.Shapes('16-Point Star 6')

shp.AutoShapeType = msoShapeOvalEnd Sub

使用VBA代碼創(chuàng )建自己的宏按鈕

下面的代碼創(chuàng )建和格式化具有特定外觀(guān)的形狀。

Sub Create_Button() Dim bttn As Shape
 Set bttn = ActiveSheet.Shapes.AddShape( _   msoShapeRoundedRectangle, _   ActiveCell.Left, _   ActiveCell.Top, _   80, 27)
 '修改文本格式 With bttn.TextFrame2.TextRange   .Text = '執行宏'   .Font.Bold = msoTrue   .Font.Fill.ForeColor.RGB = RGB(0, 0, 0)   .Font.Size = 14 End With

 '居中對齊 bttn.TextFrame.HorizontalAlignment = xlHAlignCenter bttn.TextFrame.VerticalAlignment = xlVAlignCenter
'填充顏色 bttn.Fill.ForeColor.RGB = RGB(217, 217, 217)
'無(wú)邊框 bttn.Line.Visible = msoFalseEnd Sub

遍歷所有特定類(lèi)型的形狀

如果需要工作表中特定形狀類(lèi)型，可以創(chuàng )建循環(huán)來(lái)測試AutoShapeType值以篩選結果。

下面的代碼示例遍歷當前選定的工作表中的所有形狀對象，僅更改矩形形狀的填充顏色。

Sub ChangeRectangleShapes() Dim shp As Shape

'遍歷當前工作表中所有形狀 For Each shp In ActiveSheet.Shapes '僅修改矩形形狀 If shp.AutoShapeType = msoShapeRectangle Then shp.Fill.ForeColor.RGB = RGB(253, 234, 218) End If Next shpEnd Sub

注：本文學(xué)習整理自thespreadsheetguru.com，供參考。

本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請點(diǎn)擊舉報。

欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久