imihitoさんに教えていただいた application.caller TopLeftCell BottonRightCell これらはとても便利そう。注意すべきは，自分で作り自分だけが使うときは問題ないけど少しだけ図形がずれる，ということがあると想定外の不具合はありそうです。 Altキー押し…

Excelで図形を作ってOnActionを使ってみようとしていたら，次の記事を見つけました。Excel VBA を学ぶなら moug モーグ | 即効テクニック | OnActionで実行するプロシージャに引数を渡す 図形にマクロをつけて，引数もつけれると(;´▽｀A``これはいい。軽くテ…

ブログ名前詐欺中です。 今取り組んでることのための部品。キーボードを使わずタブレットだけで作業をする。複雑なインターフェースは準備できない。 でも簡単な入力方法を実装したい。いつも思いつくのは，お風呂に入ってるときや，帰宅，出勤時。考えを変…

教員をしていると，入試の時期が必ず来ます。そろそろ，また今年の分の調整をし始めないといけません。思えば，様々なアドバイスをいただき始めたのも，データ処理をどうするか，という話の頃から。とてもありがたいことです。以前とはコードの書き方もけっ…

とりあえず，作った教材を紹介する，という機会が終わりました。仕事で人にものを説明することを日々やっている割に，やはり緊張するものですね。また，PowerPoint2016のノートPCとPowerPoint2013のタブレットで動作確認をし，さらに直前に，説明する電子黒…

まだ変なとこありましたので，書き直してみた。うーん。なんと面倒な。。気にせずやれればいいんですが(;´▽｀A`` 固定小数点でやれない数値の扱いって面倒ですね。できるだけシンプルな方法を今後も考えます。主目的がここじゃないせいで，トライアンドエラ…

有効数字を処理する部分がまずそうだったので修正中です。 Function 有効数字表示(値 As Variant, 桁 As Long, 指数表示 As Boolean) As String Dim Val_ As String, Format_ As String If 桁 = 1 Then Format_ = "0" Else Format_ = "0." & String(桁 - 1, …

コードが長いです(;´▽｀A`` 正規表現を使っているのでMicrosoft VBScript Regular Expressions 5.5への参照設定が必要です。コードが長すぎるため，最初に書きたいだけ書きます。新規のプレゼンテーションに標準モジュールを追加し，そこにペタッと下記のコ…

なかなか厄介なものに出会って困っています。これも解決へ持っていけるのか，はたまた代替案を持っていくのか。PowerpointのVBAってスライドショー中にいらないことをさせないって考え方でもあるのかなぁ。( ´ー｀)ﾌｩｰ．．．ぶつかっている壁は単純だからこ…

化学反応式の量的関係のところで，根本的なところからやりなおしています。ActionSettingのために四角形敷き詰めるなら，そもそも表いらないんじゃ??というところから(;´▽｀A``そう思わないといけなくなった理由は，表だとセルの大きさに合わせて文字の大き…

表をきちんと制御できるようにしようと思って，目的もなく作ってたら何かにつかえそうだったので載せます。オセロ作れる・・?挟まれたやつの判別ルーチンができたら作れるかなぁ。 Const 全幅 = 960, 全高 = 540 Sub test() Dim Sld1 As Slide: Set Sld1 = A…

できる範囲で自動化できることは自動化するために，こまごまとしたパーツ作りです。分子量や式量を求めさせるのを作ってみました。原子量は最低限しかまだ書いていないので，本当に使うときはConstの中身をきちんとしないとですが，できるかできないか確認し…

今日かなり調べてもわからなかったことがあったので，投稿。誰か知ってる人いらっしゃったら教えてほしいです。蛍光ペン風に文字を目立たせるには，TextFrame2.TextRange.Font.Highlightで指定ができるのは，把握しています。私的には便利。とてもいいなぁと…

化学反応式の量的関係，と呼ばれる話が化学基礎にあります。表で説明していったりするんですが，なかなか理解してもらえない。値を変化させることで，どのような感じに数値が変化していくのかを見てもらい，理解に結び付く子が増えたらいいなぁと思いながら…

反応式の奴は落ち着いたんですが，一度できたあとも改善できないか遊んでいたら，記事になりそうでしたので書いてみています。まずは準備のコード。 Sub 準備() Dim TSld As Slide: Set TSld = ActivePresentation.Slides(1) With TSld.Shapes.AddLabel(msoT…

さて，そろそろこの話も終わらないと。いろいろと勉強にはなりました。まず，VBScriptの正規表現は後読みとかそういうのが無いらしいこと。できることだけやるしかないようですね。当たり前ですが(;´▽｀A``妥協点を考える。わたしがやりたかったのは「化学反…

うまくいかなくて悶々としてたので，ここに書きなぐって，お風呂に入って冷静に考えたら，前回できなかったやつって，ポインタ使って丁寧にやっていくしかないか，と頭が冷えました。パワーポイントでは VBAいじってても カーソルが見えなくなることが多々あ…

だいたい 化学反応式を分解したり，係数を数式内で変えたりと自由に動かせるものを作りました。理由があって，画面を出すのはあまりよくないと判断し，言葉だけでの表現ですが，いくらかクラスモジュールも使いながらやれて，久々にそのあたりは満足していま…

正規表現はある程度に切り上げて，とりあえず処理できる形を作ってみました。プログラマーではないので行き当たりばったりでやってますが，なんとなく動いているようです。Microsoft VBScripting Runtime と Microsoft VBScript Regular Expressions 5.5への…

この夏頃からゲームにあんまり興味がなくなり，その代わりWeb小説にはまって読みふけるのに時間を取られています。いつもはその誘惑に負けることが多いんですが，今日はすこし正規表現に引っ張られてやってみています。サブマッチというのを完全に誤解してい…

ずいぶん以前にも同じことをやってて，化学反応式の係数を調整するやつを作っていました。マクロ以外の部分に依存すると，けっこうこまごまと調整が面倒で，どうせならマクロだけで全部作れないかと，少しやり始めたところ。各元素の原子の数は正規表現を利…

短いですが，少しPowerpointのVBA触ってて，知らない内容だったので書き残す。初心者備忘録 様 の Powerpoint自動実行マクロ のところを見てて， クラスモジュールを動かさなくてもいくつかのイベントが使える，という点でとても興味があります。https://www…

Adobe Bridgeを使ってIllustratorの大量のイラストデータを管理する際，PDF互換オプションがオンになっていないものはサムネイルが崩れたり，または見えなかったりするので，管理にかなり困る。というか，サムネイルが見えない画像はお蔵いり決定なので由々…

パワーポイントでマクロを組み始めるきっかけになった，職場の後輩から教えてもらったボタンのことを不意に思い出しました。当時OneNoteがまだまだ，仕様不明な状態で，それでも書き込みをできる環境を，とパワーポイントで電子黒板と向かったときのことです…

ひさびさにやると，いつも忘れてるので細かいこともメモ。あれ，なんでだったっけ?と数日前になったので(;´▽｀A`` パワーポイントでは 図形にマクロを設定していろんなものをボタンにできます。 やり方は簡単。ボタンにしたい図形を選んでおいて メニューか…

何日ぶりかのログイン(・_・;)生きてはいます。ただ，VBAだけじゃだめかなぁというのと，Adobeのソフトをちまちま使い始めているので，そのスクリプト言語としてJavascriptを勉強中。Adobe Animateのためにも必要かなぁと。。さっぱりですけどね。。Illustra…

あいかわらずWordで悪戦苦闘しています。ほんっとわかりません(;´▽｀A``でもまだあきらめません。使いこなせればとてもいいものとわかっている以上もうすこし食い下がる。。さて，個人情報を含まない形で作成中のファイルをもってきたので，それで試してみま…

前回の続きです。Wordの１ページ内での制御は簡単ですが，複数のページにまたがる場合は大変面倒でした。今のところはまだ限定的ですが，練習を繰り返して力をつけていきたいものです。どんな文書でもいいので， "元"という名前の図形をつくって，下記のコー…

フォントに含まれる字はアプリケーションに依存しないで表示・印刷できると今まで信じていましたが，違うことに今日困らされました。環境依存文字ったって，Officeでは共通して使えるだろうと思ってましたが，Wordでは出るけどExcelでは出ないとかPublisher…

とりあえず，難しいことは考えずに，複数の図形でもいっぺんにくっつけるように書き直してみました。結合前の線を描くときに，一定の方向性で描いた場合にのみ使える状態です。ノードの順番は距離云々でも判断がつかないため，そのへんは仕方ないと考えるし…