PowerPointのVBAで図形の吹き出しを指定位置に作るコードを教えてください UserFormのコマンドボタンでクリックされたときに現在のスライドの指定位置に
PowerPointのVBAで図形の吹き出しを指定位置に作るコードを教えてください UserFormのコマンドボタンでクリックされたときに現在のスライドの指定位置に 画像のような吹き出しを作りたいです。また、吹き出し内にテキストを打ち込めるような設定もしたいです。 コードを貼り付けてくれるとありがたいです。
PowerPoint | Excel・40閲覧・100
1人が共感しています
ベストアンサー
たとえば、そのUserFormに、TextBox1という名前のテキストボックスと、CommandButton1という名前のコマンドボタンがあり、CommandButton1をクリックすると、編集中のスライドの左から100px、上から50pxの位置に300×30pxのサイズの吹き出しを挿入し、引出線は、高さが吹き出しの下の高さ、左に15px、テキストは、TextBox1の内容だとすると Private Sub CommandButton1_Click() With ActivePresentation.Slides( _ ActiveWindow.Selection.SlideRange.SlideIndex).Shapes.AddShape( _ Type:=msoShapeRectangularCallout, _ Left:=100, Top:=50, Width:=300, Height:=30) .ShapeStyle = msoLineStylePreset1 .Adjustments.Item(1) = -0.55 .Adjustments.Item(2) = 0.5 .TextFrame.TextRange.Text = TextBox1.Text End With End Sub とか。
1人がナイス！しています
