したい事：エクセルからパワーポイントを作成したい
テキストボックスを作成
テキストボックスの文字を中央揃え←ここができないのです；；
すいません、色々試したのですが中央揃えができません、どなたかご指導して頂けないでしょうか？
↓途中までのソース
Sub PP作成_Click()
Dim app As Object
Dim pre As Object
Dim sld
Dim sh As Object
Set app = CreateObject("powerpoint.application")
app.Visible = True
' // PP を表示する
app.Visible = True
' // PP 新規プレゼンテーション作成
Set pre = app.Presentations.Add(WithWindow:=True)
' // PP 新規スライド挿入
Set sld = pre.Slides.Add(Index:=1, Layout:=12)
Set sh = sld.Shapes.AddTextbox(msoTextOrientationHorizontal _
, 100, 100, 200, 50)
With sh.TextFrame.TextRange
.Text = "テスト"
.Font.Size = 100
.Font.Name = "HGP創英角ゴシックUB"
End With
End Sub
どなたかご教示頂ければ幸いです。
以下のようなデータがある場合に、
Japanese team
Made in Japan
in the Japanese music scene
American team
Made in USA
in the American music scene
次のようなＶＢＡを作りました。
Sub macro1()
Dim re, strpattern As String, i As Long, msg As String, rematch
Set re = CreateObject("vbscript.regexp")
strpattern = "japan.*"
With re
.Pattern = strpattern
.ignorecase = True
.Global = True
For i = 1 To 10
Set rematch = .Execute(Cells(i, 1))
If rematch.Count > 0 Then
msg = msg & rematch(0) & vbCrLf
End If
Next i
End With
MsgBox msg
Set rematch = Nothing
Set re = Nothing
End Sub
すると、msgボックスには
Japanese team
Japan
Japanese music sceneと表示されます。
私はヒットしたセルの内容を、以下のように全て表示させたいと思っております。
Japanese team
Made in Japan
in the Japanese musci sceneと・・・
どうすればよろしいでしょうか？
是非とも宜しくお願い申し上げます。
どなたかご教示頂ければ幸いです。
以下のようなデータがある場合に、
Japanese team
Made in Japan
in the Japanese music scene
American team
Made in USA
in the American music scene
次のようなＶＢＡを作りました。
Sub macro1()
Dim re, strpattern As String, i As Long, msg As String, rematch
Set re = CreateObject("vbscript.regexp")
strpattern = "japan.*"
With re
.Pattern = strpattern
.ignorecase = True
.Global = True
For i = 1 To 10
Set rematch = .Execute(Cells(i, 1))
If rematch.Count > 0 Then
msg = msg & rematch(0) & vbCrLf
End If
Next i
End With
MsgBox msg
Set rematch = Nothing
Set re = Nothing
End Sub
すると、msgボックスには
Japanese team
Japan
Japanese music sceneと表示されます。
私はヒットしたセルの内容を、以下のように全て表示させたいと思っております。
Japanese team
Made in Japan
in the Japanese musci sceneと・・・
どうすればよろしいでしょうか？
是非とも宜しくお願い申し上げます。
WINDOWS XP EXCELL ２００３です。
C2のセルに入力すれば A2のセルに今日の日付が入力されるのみのマクロが下記です
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then
Target.Offset(0, -2).Value = Date
End If
End Sub
御指導を仰ぎたいのは
C3 に入力されたら A3 今日の日付
C4 に入力されたら A4 今日の日付
C5 に入力されたら A5 今日の日付
という具合になにかを追加すればと良いと考え調べましたが分かりませんでした。
御指導いたたければ幸いです。
よろしく御願いします。
プログラムの中で単一のシートやセルなど一つの処理内容
に対して一連の処理をする時「With」ステートメントで
ひとくくりで記述できます。
と参考書やwebサイトで見ました。
とりあえず自力で作成した構文は完璧では有りませんが
「With」ステートメントを使えるようになりました。
さて以下の2種類の構文ですがマクロの記録で作成されています。
これを簡素化しようと思ったのですが
すでにWith～End Withが散乱しています。
これはもう纏めるのは無理なのでしょうか？
私が思うに同じ単語が何回も出てくるので
もう少し簡素化できるのではと挑戦しましたが
誤動作になってしまいます。
すでにWith～End Withでくくられていますので
そのくくりはやはり崩すと駄目なのでしょうか？
くくり内の2行→1行にする程度が限度でしょうか？
これはどのようにすれば簡素化できるのか
コツを教えてください。
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("順番")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("区分")
.Orientation = xlColumnField
.Position = 2
End With
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("区分名")
.Orientation = xlColumnField
.Position = 3
End With
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("品番")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("仕入")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("品名")
.Orientation = xlRowField
.Position = 3
End With
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("棚番")
.Orientation = xlRowField
.Position = 4
End With
（省略）
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("品番")
.PivotItems("(空白)").Visible = False
End With
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("仕入")
.PivotItems("(空白)").Visible = False
End With
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("品名")
.PivotItems("(空白)").Visible = False
End With
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("棚番")
.PivotItems("(空白)").Visible = False
End With
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("順番")
.PivotItems("(空白)").Visible = False
End With
ActiveWindow.SmallScroll ToRight:=3
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("親品番")
.PivotItems("(空白)").Visible = False
End With
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("親品名")
.PivotItems("(空白)").Visible = False
End With
ワークシートのコンボボックス（Active X コントロール）で選択されたデータがあるかどうか
チェックしたいのです。セルならば、うまくいくのですが、コンボボックスの場合はうまくいきません。
クライアント名と品名は、コンボボックスから選択するようにしています。（下記のスクリプトは、わから
ないのでセル番地を任意に入れています。）
金額は、セル入力ですのでうまくチェックできています。
どうしたらいいのでしょうか？ご指導お願いいたします。
Private Sub cmd_登録_Click()
Dim chkStr As String '入力チェックのメッセージ文
'---------入力データのチェック-------------
'初期値を代入する。
chkStr = ""
'クライアント名が未入力の場合
If IsEmpty(ActiveSheet.cboクライアント.ListIndex) Then
chkStr = "クライアント名を選択してください"
Range("B5").Select
'品名が未入力の場合
ElseIf IsEmpty(Range("E5")) Then
chkStr = "品名を選択してください"
Range("E5").Select
'売上金額が未入力の場合
ElseIf IsEmpty(Range("W14")) Then
chkStr = "売上金額を入力してください。"
Range("W14").Select
Else
MsgBox "登録を行います"
End If
'入力漏れがある場合は、プロシージャを抜ける
If chkStr <> "" Then
MsgBox chkStr, vbCritical, "登録エラーです。"
Exit Sub
End If
こんにちは
現在ワークシートで下記マクロにて、日付・時間の履歴を自動入力しています。
3行目以降のC列のセルに何か入力すると、そのとなりのD列のセルに日付と時間が返されるものです。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Integer, c As Integer
r = Target.Row
c = Target.Column
If c < 3 Or c > 3 Or r < 3 Then End
If Cells(r, c) <> "" Then
Cells(r, c + 1) = Format(Now, "yyyy/m/d h:mm")
Else
Cells(r, c + 1) = ""
End If
End Sub
この同一シートに、下記マクロの指示を加えたいのですが、うまくいきません。
3行目以降のE列のセルに "chcl" とすると、B列のセルに "機能回復" と自動入力されるものです。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Integer, c As Integer
r = Target.Row
c = Target.Column
If c < 5 Or c > 5 Or r < 3 Then End
If Cells(r, c) = "chcl" Then
Cells(r, c - 3) = Format("機能回復")
Else
Cells(r, c - 3) = ""
End If
End Sub
まとめると・・・・・・
3行目以降のC列のセルに何か入力すると、そのとなりのD列のセルに日付と時間が返され、
且つ、
3行目以降のE列のセルに "chcl" とすると、B列のセルに "機能回復" と自動入力される、
というシートが欲しいのです。
上記マクロ、それぞれ単発だと機能するのですが、一緒に出来ません。
どなたか、解決方法をご教授下さい。
よろしくお願いします。
勉強のため購入した本（※ＶＢＡ逆引き大全）からサンプルがダウンロードできたので，下記の構文で実行したところ，フォーム上の会社名を，Wordに「～様」と挿入することができました。
Private Sub cmd実行_Click()
Dim Appwo As Word.Application
Dim doc As Word.Document
Dim stPath As String
Dim stName As String
stName = Me.txt会社名
stPath = "C:\Users\pigo\Desktop\納品書.docx"
Set Appwo = CreateObject("Word.Application")
Set doc = Appwo.Documents.Open(stPath)
Appwo.Visible = True
With Appwo.Selection
.Find.Text = "様"
.Find.Execute
.InsertBefore stName
.Font.Size = 12
.Font.Bold = True
End With
Set Appwo = Nothing
Set doc = Nothing
End Sub
ここで質問なのですが，フォーム上には会社名に加え，そのほかにもWordへと挿入したいテキストボックス（※部署名，担当者名など）が複数存在します。そのような場合には，上記の構文はどのようにすればよいのでしょうか。
教えていただければ幸いです。
初心者で言葉足らずかも知れませんが、よろしくお願いします。
