PowerPoint (一般・VBA)

PowerPoint 一般・VBAに関する話題を扱うフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : PowerPoint 2010)
OnActionの引数について
投稿日時: 21/03/01 12:18:10
投稿者: mayuwanko

エクセルでは問題なかったのですが、パワーポイントでうまくいかず解決策を教えて頂きたく質問させていただきます
(スマホで手入力していますので、間違いがありましたらすみません)
 
エクセルでできていること
Http://officetanaka.net/excel/VBA/tips/tips54.htm
こちらを参考に、ツールバーにボタンをつけました
 
エクセルでは以下の記述で問題なく動きます
パワーポイントに記述を貼り付け動かすと、
「マクロは存在しないか、セキュリティの設定により無効にされています」となります
 
標準モジュール
Sub Test
Dim mybar as office.commandbar
Dim mybutton as commandbarbutton
Dim mybar_name as string
 
Mybar_name =″bar″
On error resume next
Application.commandbars(mybar_name).delete
On error Goto 0
 
Set mybar = application.Commandbars. Add (name:=mybar_name)
Set mybutton=mybar.controls.add(type:=msocontrolbutton)
With mybutton
.Caption=″rgb(255,255,255)″
.onaction=″′btnclick ″ & .caption & ″,″″薄″″ ′″
.faceid =272
End with
Mybar.visible=true
End sub
 
Sub btnclick (strrgb as string,str判断 as string)
Msgbox ″ok″
End sub
 
パワーポイントでエラーになりおかしいなと試したこと
.on action =″btnclick″
と引数を指定しない場合は、問題なく動きます
 
どうすれば解消できますか
   

回答
投稿日時: 21/03/01 13:49:26
投稿者: んなっと

Excel VBAと完全に同じわけではないので、別の方法を使えばいいだけです。
 
Sub Test()
  Dim mybar As Office.CommandBar
  Dim mybutton As CommandBarButton
  Dim mybar_name As String
  mybar_name = "bar"
  On Error Resume Next
  Application.CommandBars(mybar_name).Delete
  On Error GoTo 0
  Set mybar = Application.CommandBars.Add(Name:=mybar_name)
  Set mybutton = mybar.Controls.Add(Type:=msoControlButton)
  With mybutton
    .Caption = "rgb(255,255,255) 薄"
    .OnAction = "btnclick"
    .FaceId = 272
  End With
  mybar.Visible = True
End Sub
Sub btnclick()
  MsgBox Application.CommandBars.ActionControl.Caption & "ボタンがクリックされたよ"
End Sub
 
リンク先の画像はExcel2003およびそれ以前のものです。
Excel2010では、追加されたツールバーは「アドイン」タブに便宜的に
表示されるのだけなので、わざわざツールバーを追加するのはあまり意味がありません。
リボンをカスタマイズする」で検索して、新しい方法を使うようにしてください。
 
同様に、ひとつ前の質問のリンク先のコードもPowerPoint2003のものです。
そのコードの回答者ですが、PowerPoint2010ではまったく使えない方法です。
 

回答
投稿日時: 21/03/01 13:58:26
投稿者: んなっと

Excel2010以降のリボンのカスタマイズ情報は、
国内では きぬよ&あさみ さんが第一人者です。
https://www.ka-net.org/ribbon/reference.html
私もこのサイトで勉強しました。
 
余談。
きぬよ&あさみ というHNから、「娘の名前をHNにする、素敵なパパ」
のイメージを持っていましたが...
最近「あつ森」をプレイして、
もしかしたら別の事情なのかもしれないと思うようになりました。

投稿日時: 21/03/01 15:00:31
投稿者: mayuwanko

ありがとうございます
勉強させてもらいます
 
ショートカットキーのご回答もありがとうございました
 
先にお礼まで…
 
 
あつ森していないのでわかりません…ごめんなさい

投稿日時: 21/03/01 17:04:54
投稿者: mayuwanko

引数もショートカットキーもどちらも必要な結果が得られました
ありがとうございます
 
中身まで完全に理解は出来ていない状態ではありますが…
これから確認していきたいと思います
頂いたページも勉強していきます
 
ショートカットキーはあきらめていたのですが、
解決策を下さり、すごいなぁと(語彙力なくてすみません)思っています
私も使いこなせるといいなぁ…
 
また機会がありましたら、教えて頂けると助かります
ありがとうございました