[pear_error: message="Success" code=0 mode=return level=notice prefix="" info=""]
JUGEMテーマ:PC関連 ツールバーに自作のアイコンを表示させることが出来ます。 例えばセルに「図1」という名前の画像があるとして、それをコピーして、ツールバーに貼り付けします。 Sub Sample44() '図1を選択し、コピー ActiveSheet.Shapes("図 1").Select Selection.Copy With Application.CommandBars.Add("オリジナル") With .Controls.Add .Caption = "マクロ1" .OnAction = "macro1"  ...
Office Labo | 2015.05.13 Wed 08:05
前に作った透過アイコン作成ソフトの改良版です。 アイコン作成することは、あまりないので、 前に作ったソフトはときどき使うだけなのですが、何か微妙なので、これも直してみました。 前回記事、Windowsの透過アイコン作成です と 基本的なプログラムの考え方は同じです。(HSPスクリプトで作成されています。) 改良点として 1.最初に元画像を表示しました。(画像を確認するため) 2.基本的な画像の大きさを256×256から128×128にしました。(現在においては、一般的で十分な大きさな...
孤独なコンピュータ | 2015.05.08 Fri 16:16
JUGEMテーマ:PC関連 まず、右クリックで表示したいメニューをあらかじめ作成しておきます。 以下がそのサンプルです。 Sub Sample43() With Application.CommandBars.Add("オリジナル", msoBarPopup) With .Controls.Add .Caption = "マクロ1" .OnAction = "macro1" End With With .Controls.Add .Caption = "マクロ2" ...
Office Labo | 2015.05.07 Thu 15:37
JUGEMテーマ:PC関連 Access DE 請求 EXで請求書入力を顧客単位でロックして、 共有DBを別の人が開けないようにする要望がありました。 さて、私はプログラマーではないため(汗)、請求書入力が一人が開いていると 別のPCは開けない壁に当たりました。 請求書のフォームを開く前に顧客を選択する画面があります。 元のソースを乗せるのはちょっとためらいますが DoCmd.OpenForm "SeikSele請求明細", , , , acFormAdd となっており、ロックモードで開くようになっていました。 とりあえずこれを DoCmd...
ctrlzのctrls | 2015.05.06 Wed 22:18
JUGEMテーマ:PC関連 ブック単位でセルでの右クリックを制御するには、Workbook_SheetBeforeRightClickイベントで宣言されている「(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)」を利用します。 Shはイベントが発生した時のシート名で、Targetはイベントが発生した時のセルで、Cancelは既存の右クリックメニューが表示されるのを中止します。 ブックモジュールに以下の様に入力します。 'Sheet1とSheet3の時だけ、右クリックを全て無効にする Private Sub Workbook_SheetBeforeRightClick(ByVal Sh...
Office Labo | 2015.04.30 Thu 11:08
JUGEMテーマ:PC関連 How to Start GIMP 2.8.14.1 「DL」 GIMP(本体)公式のDL方法が、新しくなっていました。 [Torrent DL]か[公式直接 exe DL]になっていました。 今回は[公式直接 exe DL]にします。 [Downloads] → 項目[GIMP 2.8.14] → [this link]を選択したら、 [gimp-2.8.14-setup-1.exe]のDLが可能でした。 [Downloads] → 項目[User Manual] → [Japanese]もついでにDLしました...
Raiha-Horizon Blog | 2015.04.23 Thu 06:38
JUGEMテーマ:PC関連 セルでの右クリックを制御するには、Worksheet_BeforeRightClickイベントで宣言されている「(ByVal Target As Range, Cancel As Boolean)」を利用します。 Targetはイベントが発生した時のセルで、Cancelは既存の右クリックメニューが表示されるのを中止します。 シートモジュールに以下の様に入力します。 '右クリックを全て無効にする Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub 'A1のセル場合のみ...
Office Labo | 2015.04.22 Wed 08:43
JUGEMテーマ:PC関連 ちょっとしたプロフ写真にスカイプで撮った画像を使おうと思ったら、どこに保存されているのか皆目見当がつかない。 スタートメニュー 「ファイル名を指定して実行」 %AppData% と入力して見つけた。 コピーしてピクチャに保存しておいた。
白ワインとサーモンとアボカドと。 | 2015.04.21 Tue 08:05
come home:Weblio英和和英辞典 研究社 新英和中辞典|研究社研究社 アクセントcòme hóme (to a person) 〈…が〉(人に)痛切に感じられる, (…の)胸にこたえる. 日本語WordNet(英和) 【動詞】 明白になるか、その人の意識または感情に入り込む (become clear or enter one's consciousness or emotions) Weblio英語表現辞典 Come home 訳語 帰っておいで 斎藤和英大辞典|日外アソシエーツ株式会社 帰宅;帰省;戻る;帰国;帰郷 最近Google chromeがやけに重い。時折フリーズしたように読み込みが止まっ...
現代用語のクソ知識2015 @ 非 有吉弘行 | 2015.04.16 Thu 00:30
JUGEMテーマ:PC関連 '以下の様に標準モジュールに記述し、セルに「=Sample40()」と入力すれば、アクティブシートのシート名が表示されます。「Application.Volatile」を記述していない場合でもシート名は表示されますが、セルに入力した数式「=Sample40()」を直接編集しない限り更新されません。逆に「Application.Volatile」してもシート名を変更しただけではシート名は更新されません。 Function Sample40() As String 'ユーザー定義関数を自動再計算関数にする Application.Volatile 'アクティブシートのシー...
Office Labo | 2015.04.15 Wed 08:18
全1000件中 631 - 640 件表示 (64/100 ページ)