フォームを画面のど真ん中に表示させたいのですが、
http://dobon.net/vb/dotnet/form/startposition.html
を見たのですがコードの書き方がよくわかりません。
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim f As New Form1() 'フォームを画面の真ん中に表示する
f.StartPosition = FormStartPosition.CenterScreenf.Show()
End Sub
End Class
こうすると、「FormStartPosition.CenterScreenf」の部分に波線がひかれます。
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.StartPosition = FormStartPosition.Manual
Me.Location = New Point(0, 0)
End Sub
End Class
これで左は時に表示する事は出来るのですが、真ん中に表示させるにはどうすればいいでしょうか？
フォームを画面のど真ん中に表示させたいのですが、
http://dobon.net/vb/dotnet/form/startposition.html
を見たのですがコードの書き方がよくわかりません。
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim f As New Form1() 'フォームを画面の真ん中に表示する
f.StartPosition = FormStartPosition.CenterScreenf.Show()
End Sub
End Class
こうすると、「FormStartPosition.CenterScreenf」の部分に波線がひかれます。
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.StartPosition = FormStartPosition.Manual
Me.Location = New Point(0, 0)
End Sub
End Class
これで左は時に表示する事は出来るのですが、真ん中に表示させるにはどうすればいいでしょうか？
フォームを画面のど真ん中に表示させたいのですが、
http://dobon.net/vb/dotnet/form/startposition.html
を見たのですがコードの書き方がよくわかりません。
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim f As New Form1() 'フォームを画面の真ん中に表示する
f.StartPosition = FormStartPosition.CenterScreenf.Show()
End Sub
End Class
こうすると、「FormStartPosition.CenterScreenf」の部分に波線がひかれます。
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.StartPosition = FormStartPosition.Manual
Me.Location = New Point(0, 0)
End Sub
End Class
これで左は時に表示する事は出来るのですが、真ん中に表示させるにはどうすればいいでしょうか？
いつも楽しく勉強させていただいております。
環境はwin7でExcel2003です。
Excelのブックをマクロを使ってPDF化したいのですが、問題はOfficeのバージョンが2003なのでPDF形式でで保存という機能がありません。
そこでPrimoPDFというフリーソフトをインストールして、マクロの自動保存で下記のプログラムを作りました。
Sub Macro1()
Application.ActivePrinter = "PrimoPDF on Ne08:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PrimoPDF on Ne08:", Collate:=True
End Sub
問題はこれを実行するとPrimoPDFのダイアログボックスが出てきてしまうことです。
PDF化したいファイルは1000以上あるのでいちいち手動でボタンをクリックすることはできません。
できれば保存する場所やポストプロセス（PDFを開くなど）を「なし」にするなどの設定もマクロで行いたいのですが、相手がPrimoPDFでは無理でしょうか。どうしてもPrimoPDFを使いたいわけではありません。もしそれ以外でお勧めの方法があればそれでもいいのですが。
ただ、Excelはどうしても2003でやりたいのです。2007だと「PDFで保存」の機能を使用できるのですが、どういうわけか2007だとレーダーチャートの形が崩れてしまうので
http://officetanaka.net/excel/vba/tips/tips95.htm
を参考に、
フォルダの一覧を取得するコードを作ってるのですが
Sample4ならエラーにならずにフォルダの一覧を取得できるのですが、
フォルダ名にドットがある場合も取得されてしまうので、Sample6を使いたいのですが、
If GetAttr(buf) And vbDirectory Then
の部分で、
「53ファイルが見つかりません。」
のエラーになります。
なぜでしょうか？
http://officetanaka.net/excel/vba/tips/tips95.htm
を参考に、
フォルダの一覧を取得するコードを作ってるのですが
Sample4ならエラーにならずにフォルダの一覧を取得できるのですが、
フォルダ名にドットがある場合も取得されてしまうので、Sample6を使いたいのですが、
If GetAttr(buf) And vbDirectory Then
の部分で、
「53ファイルが見つかりません。」
のエラーになります。
なぜでしょうか？
