自動創建並從一個列表中命名一個對象

我目前正在嘗試從引用列表中自動命名對象，而不是僅在腳本中聲明對象文本。自動創建並從一個列表中命名一個對象

如何拿到劇本參照名爲Process Steps單獨的工作表，其中文本值是細胞C7，而不是在腳本中輸入語句Step 1的

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 50).Select 
Selection.Formula = "" 
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset40 
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Step1"

來源

2014-02-06 Adrian Gornall

嘗試'Selection.ShapeRange（1）.TextFrame2.TextRange.Characters.Text =表（「YourWorksheetName」），範圍（「C7」）。Value' –

彼得已經提到如何回暖來自另一個單元格的值。把這一點提前一點。

請避免使用.Select/.ActivateINTERESTING READ

這是你想什麼呢？

Sub Sample() 
    Dim shp As Shape 

    Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 50) 

    With shp.OLEFormat.Object 
     .Formula = "" 

     .ShapeRange.ShapeStyle = msoShapeStylePreset40 

     .ShapeRange(1).TextFrame2.TextRange.Characters.Text = _ 
     ThisWorkbook.Sheets("Process Steps").Range("C7").Value 
    End With 
End Sub

來源

2014-02-06 08:29:32

的作品真棒的感謝！ –

自動創建並從一個列表中命名一個對象

回答

相關問題