簡報語法不運行

Question

我有以下代碼：

Sub ppt() 

Dim pptapp As PowerPoint.Application 
Dim ppt As PowerPoint.Presentation 
Dim slide As PowerPoint.slide 
Dim shape As PowerPoint.shape 

Dim var1 As String 

Set pptapp = CreateObject("Powerpoint.Application") 
pptapp.Visible = True 

Set ppt = pptapp.Presentations.Open("X:\SSC_HR\SENS\Bedrijfsbureau\Rapportages\SENS  referenten rapportage\Nieuwe ref rap template\SENS referent rapportage januari 2014.pot") 
Set slide = ppt.Slides(1) 
Set shape = slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 500, 100, 100) 

var = InputBox("Insert weeknumber") 

With shape 

.TextFrame.TextRange = "Update call Jeroen van Breda Vriesman/Ton van der Linden" & vbNewLine & var1 & vbNewLine & "Tel nr: +31 (0)10 - 299 1002 code 59790989 " 
.Line.Visible = True 
.Width = 200 
.Height = 200 
.TextEffect.FontSize = 12 

End With 

With ppt 
.SaveAs "C:\Documents and Settings\aa471714\Desktop\" & "SENS referentenrapporge - week" & var1 
.Close 

末隨着

末次

我有兩個問題，它

1. 我儘量安排使用此語句的字體大小

   .TextEffect.FontSize = 12

但這並不work.Anybody什麼線索去錯在這裏。如果我運行它沒有這條線一切順利。

1. 如果我現在運行它，我必須插入一個數字。但是那個號碼並沒有出現在文件中。我已經嘗試過的朦朧變爲

   昏暗var1的AS號

我得到了用戶定義類型沒有定義的錯誤。有人知道這裏出了什麼問題嗎？

Answer 1

相反，使用這樣的：

With shape 

.TextFrame.TextRange = "Update call Jeroen van Breda Vriesman/Ton van der Linden" & vbNewLine & var1 & vbNewLine & "Tel nr: +31 (0)10 - 299 1002 code 59790989 " 
.Line.Visible = True 
.Width = 200 
.Height = 200 
.TextFrame.TextRange.Font.Size = 12 

End With 

而且你會想要做

昏暗VAR1一樣長或者如果它是把若干個其他一些數字類型;否則，如字符串